forma 1 adet timer 1 adetde command buton eklıyoruz...
Kod:
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 = 100
End Sub
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
- Cevaplar
- 3
- Görüntüleme
- 92
- Cevaplar
- 2
- Görüntüleme
- 77
- Cevaplar
- 10
- Görüntüleme
- 286
- Cevaplar
- 13
- Görüntüleme
- 738
- Cevaplar
- 3
- Görüntüleme
- 627
