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