[code]Private Sub Timer1_Timer()
If Me.Visible = True Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub

Private Sub Command1_Click()
' That value for duration 1000 = 1 second
Timer1.Interval = 1000
End Sub[/code]

Beğeniler: 0
Favoriler: 0
İzlenmeler: 823
favori
like
share
MASKK_06 Tarih: 07.08.2006 23:51
teşekkürler kardeş
fiber_optic Tarih: 08.03.2006 11:07
Ellerine sağlık teşekkürler