Private Sub Command1_Click()
If Val(Text1) = Val(Label1) * Val(Label2) Then
Label3.Caption = “Benar”
Else: Label3.Caption = “Salah”
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Label3.Caption = “”
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
End Sub