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 :

######

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