|
'kişisel randevu hatırlatıcısı.Formunuza bi timer bir tane text ve label atıp calıştırın.
Private Sub Command1_Click()
Text1 = DateAdd("n", 1, Time)
End Sub
Private Sub Form_Load()
Command1_Click
End Sub
Private Sub Timer1_Timer()
label1 = Time
If label1 = Text1 Then
mp.Controls.play
End If
End Sub
Yazar: Turk_Ajan
|
