Private Sub Command1_Click()
Image1.Visible = False
 
Timer1.Interval = 100
Timer1.Enabled = True
 
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
 
Private Sub Command3_Click()
 
End Sub
 
Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
 
End Sub