[ Ivan007 @ 02.09.2003. 17:36 ] @
pravim sat/alarm

label1 = sat
text1

ako je u text1 napisano "19:00:00" a sat je na "19:00:00"
kako da mi se otvori nova forma
[ mladenovicz @ 02.09.2003. 17:51 ] @
treba da stavis na formu Timer kontrolu. Podesi joj Interval Property na 1000 (milisekunde su u pitanju), i dodaj ovaj kod

Code:

Private Sub Timer1_Timer()
Dim AlarmTime As Date
    
    If IsDate(txtText.Text) Then
        AlarmTime = CDate(txtText.Text)
    Else
        Exit Sub
    End If
    
    If DateDiff("s", AlarmTime, Time()) = 0 Then
        Form2.Show
    End If
End Sub


Ovaj kod ce ti svake sekunde proveravati, da li je vreme iz textboxa jednako sistemskom i ako jeste prikazati formu.