home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / calendar / frmhelp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-27  |  3.8 KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form Help 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Help"
  5.    ClientHeight    =   2310
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4110
  9.    Icon            =   "frmHelp.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   2310
  13.    ScaleWidth      =   4110
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.ComboBox Combo1 
  16.       Height          =   315
  17.       ItemData        =   "frmHelp.frx":030A
  18.       Left            =   45
  19.       List            =   "frmHelp.frx":0317
  20.       TabIndex        =   0
  21.       Text            =   "Choose One"
  22.       Top             =   0
  23.       Width           =   4020
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "Ok"
  27.       Height          =   285
  28.       Left            =   3465
  29.       TabIndex        =   1
  30.       Top             =   1935
  31.       Width           =   645
  32.    End
  33.    Begin VB.Label Label3 
  34.       Alignment       =   2  'Center
  35.       Caption         =   "Thanx to Smackage for the concept!"
  36.       Height          =   600
  37.       Left            =   2010
  38.       TabIndex        =   4
  39.       Top             =   1725
  40.       Width           =   1425
  41.    End
  42.    Begin VB.Label Label2 
  43.       Alignment       =   2  'Center
  44.       Caption         =   "V 2.0 By: Stephen Spurlock MaRZ001@juno.com"
  45.       Height          =   390
  46.       Left            =   0
  47.       TabIndex        =   3
  48.       Top             =   1740
  49.       Width           =   1965
  50.    End
  51.    Begin VB.Label Label1 
  52.       Alignment       =   2  'Center
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   $"frmHelp.frx":034F
  55.       Height          =   1410
  56.       Left            =   30
  57.       TabIndex        =   2
  58.       Top             =   330
  59.       Width           =   4050
  60.    End
  61. Attribute VB_Name = "Help"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Private Sub Combo1_Change()
  67. If Combo1.Text = "" Then
  68. Exit Sub
  69. ElseIf Combo1.Text = "What is this?" Then
  70. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  71. ElseIf Combo1.Text = "What dose this do?" Then
  72. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it dose nothing!"
  73. ElseIf Combo1.Text = "How do I leave?" Then
  74. Label1.Caption = "To exit the help window, click the ok or the X. To exit the Main window, Right click on the title bar."
  75. Exit Sub
  76. End If
  77. End Sub
  78. Private Sub Combo1_Click()
  79. If Combo1.Text = "" Then
  80. Exit Sub
  81. ElseIf Combo1.Text = "What is this?" Then
  82. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  83. ElseIf Combo1.Text = "What dose this do?" Then
  84. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it dose nothing!"
  85. ElseIf Combo1.Text = "How do I leave?" Then
  86. Label1.Caption = "To exit the help window, click the ok or the X. To exit the Main window, Right click on the title bar."
  87. Exit Sub
  88. End If
  89. End Sub
  90. Private Sub Command1_Click()
  91. Me.Hide
  92. End Sub
  93.