04/11/2010, 15:04
gitarc
Burada ekleyeceğimiz 2 şey var = 1 Command button 1 Timer
Eğer bunun direk başlamasını istiyorsak buttondaki kodları form a yazarak yapabiliriz .. İşte Kodlar :
######
Eğer bunun direk başlamasını istiyorsak buttondaki kodları form a yazarak yapabiliriz .. İşte Kodlar :
######
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim i As String
i = Rnd * 100000
Form1.BackColor = i
End Sub