A) A) Property :
Timer : NAME-Timer1, INTERVAL-2000 Textbox : NAME-Text1, TEXT-Hai |
(The Timer will not appear on the output Screen )
B) B) Attaching Code to the Object :
Dim flag As Integer |
Private Sub Timer1_Timer() If flag = 1 Then Text1.Alignment = 0 flag = 0 Else Text1.Alignment = 0 flag = 1 End If End Sub |
=========================================================================
Back to Home & VB
No comments:
Post a Comment