Caption = "The control above has been set up to accept a new time from a mouse click. Clicking the control with the left button will change the minute hand. Clicking the control with the right button will change the hour hand."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 795
Left = 5100
TabIndex = 3
Top = 4500
Width = 3915
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "The ctCLOCK VBX is a control that lets the user view and set the time in a visual manner. The control comes with a variety of options that allow the programmer to change the look and feel of the controls. This includes the ability to provide a bitmap image for the controls background."
ForeColor = &H00800000&
Height = 615
Left = 240
TabIndex = 2
Top = 180
Width = 8415
End
End
Sub Command1_Click ()
Unload w_clock_demo
End Sub
Sub Command2_Click ()
ctClock1.AlarmHour = ctClock1.CurrentHour
ctClock1.AlarmMinute = ctClock1.CurrentMinute
ctClock1.AlarmSecond = ctClock1.CurrentSecond + 3
If (ctClock1.CurrentSecond + 3 >= 60) Then
ctClock1.AlarmMinute = ctClock1.CurrentMinute + 1
End If
End Sub
Sub ctCheck1_Click ()
ctClock1.MilitaryTime = ctCheck1.Value
End Sub
Sub ctCheck2_Click ()
ctClock1.IncludeSeconds = ctCheck2.Value
End Sub
Sub ctCheck3_Click ()
ctClock1.IncludeAmPm = ctCheck3.Value
End Sub
Sub ctClock2_TimeChange (nHour As Integer, nMinute As Integer, nSecond As Integer)