Çevrimdışı

1command buton 1 text box 1 timer 1 label

Kod:
Private Sub Command1_Click( )
Dim sor
sor = InputBox("Lütfen alarm saatini yazın :","Alarm" )
Text1.Text = sor
End Sub

Private Sub Form_Load( )
Text1.Locked = True
Text1.Text = ""
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer( )
Label1.Caption = Time
If Label1.Caption = Text1.Text Then
MsgBox "Zaman Doldu...!"
End If
End Sub
Buna Ses ekleyebılırsınız. istersenizz..
alıntı