home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / remind1a / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-05  |  3.7 KB  |  135 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H80000001&
  4.    Caption         =   "Remind Me"
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   4935
  7.    ClientTop       =   3225
  8.    ClientWidth     =   3900
  9.    FillColor       =   &H000000FF&
  10.    LinkTopic       =   "Form2"
  11.    Moveable        =   0   'False
  12.    ScaleHeight     =   2415
  13.    ScaleWidth      =   3900
  14.    Begin VB.Timer Timer1 
  15.       Interval        =   1000
  16.       Left            =   240
  17.       Top             =   1920
  18.    End
  19.    Begin VB.Timer Timer5 
  20.       Interval        =   2000
  21.       Left            =   2160
  22.       Top             =   1920
  23.    End
  24.    Begin VB.Timer Timer4 
  25.       Enabled         =   0   'False
  26.       Interval        =   2000
  27.       Left            =   3120
  28.       Top             =   1920
  29.    End
  30.    Begin VB.Label Label5 
  31.       Alignment       =   2  'Zentriert
  32.       Appearance      =   0  '2D
  33.       BackColor       =   &H80000005&
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   "Quit"
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   18
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   -1  'True
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H80000008&
  46.       Height          =   495
  47.       Left            =   0
  48.       TabIndex        =   2
  49.       Top             =   1560
  50.       Width           =   3855
  51.    End
  52.    Begin VB.Label Label4 
  53.       Alignment       =   2  'Zentriert
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "About"
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   18
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   -1  'True
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   495
  66.       Left            =   0
  67.       TabIndex        =   1
  68.       Top             =   840
  69.       Width           =   3855
  70.    End
  71.    Begin VB.Label Label3 
  72.       Alignment       =   2  'Zentriert
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "Start Reminder"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   18
  78.          Charset         =   0
  79.          Weight          =   400
  80.          Underline       =   -1  'True
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H00000000&
  85.       Height          =   495
  86.       Left            =   480
  87.       TabIndex        =   0
  88.       Top             =   120
  89.       Width           =   2895
  90.    End
  91. Attribute VB_Name = "Form2"
  92. Attribute VB_GlobalNameSpace = False
  93. Attribute VB_Creatable = False
  94. Attribute VB_PredeclaredId = True
  95. Attribute VB_Exposed = False
  96. Private Sub Image1_Click()
  97. Form1.Show
  98. Form2.Hide
  99. End Sub
  100. Private Sub Image2_Click()
  101. frmAbout.Show
  102. Form2.Hide
  103. End Sub
  104. Private Sub Image3_Click()
  105. Form3.Show
  106. End Sub
  107. Private Sub OLE2_Updated(Code As Integer)
  108. End Sub
  109. Private Sub Label1_Click()
  110. End Sub
  111. Private Sub Label3_Click()
  112. Form1.Show
  113. Unload Me
  114. End Sub
  115. Private Sub Label4_Click()
  116. frmAbout.Show
  117. End Sub
  118. Private Sub Label5_Click()
  119. Form3.Show
  120. End Sub
  121. Private Sub Timer1_Timer()
  122. Timer4.Enabled = True
  123. Timer1.Enabled = False
  124. End Sub
  125. Private Sub Timer4_Timer()
  126. If Label3.ForeColor = &HFF& Then
  127. Label3.ForeColor = &H0&
  128. End If
  129. End Sub
  130. Private Sub Timer5_Timer()
  131. If Label3.ForeColor = &H0& Then
  132. Label3.ForeColor = &HFF&
  133. End If
  134. End Sub
  135.