- 120 名前：デフォルトの名無しさん mailto:sage [2006/08/22(火) 16:52:46 ]
- >>116
初めにそれを書けばすぐ解決してたぞ
Private Sub Button1_Click()
Timer1.Enabled = True
End Sub
Private Sub Button2_Click()
If Label1.Text <> Label2.Text Then
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick()
Label1.Text = CInt(Rnd() * 52)
Label2.Text = CInt(Rnd() * 52)
End Sub
