Private Sub Command1_Click()
Timer1.Interval = 0
End Sub

Private Sub Command2_Click()
Timer2.Interval = 0

End Sub

Private Sub Command3_Click()
Timer3.Interval = 0
If Frame1.Caption = Frame2.Caption Or Frame2.Caption = Frame3.Caption Or Frame1.Caption = Frame3.Caption Then
Label1.Caption = "恭喜你"
Else
Label1.Caption = "悲哀你"
End If
End Sub



Private Sub Command4_Click()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000

End Sub

Private Sub Timer1_Timer()
Frame1.Caption = Int(Rnd * 10)
End Sub

Private Sub Timer2_Timer()
Frame2.Caption = Int(Rnd * 10)

End Sub

Private Sub Timer3_Timer()
Frame3.Caption = Int(Rnd * 10)

End Sub

EFSS 發表在 痞客邦 PIXNET 留言(0) 人氣()