??

Private Sub Command1_Click()
Dim testmsg As Integer
testmsg = MsgBox("SILAHKAN ANDA KLIK TOMBOL", 1 + vbCritical, "test")
If testmsg = 1 Then
Label1 = "ANDA MENG-KLIK TOMBOL OK"
Else
Label1 = "ANDA MENG-KLIK TOMBOL CANCEL"
End If
End Sub

Private Sub Command2_Click()
Dim testmsg As Integer
testmsg = MsgBox("SILAHKAN ANDA KLIK TOMBOL", vbOKCancel + vbInformation, "test")
If testmsg = vbOK Then
Label1 = "ANDA MENG-KLIK TOMBOL OK"
Else
Label1 = "ANDA MENG-KLIK TOMBOL CANCEL"
End If
End Sub

Private Sub Command3_Click()
Dim testmsg As Integer
testmsg = MsgBox("SILAHKAN ANDA KLIK", vbYesNoCancel_ + vbExclamation, "test")
If testmsg = 6 Then
Label1 = "TESTING SUCCESSFULL"
ElseIf testmsg = 7 Then
Label1 = "ARE YOU SURE ?"
Else
Label1 = "TESTING FAILED"
End If
End Sub

Private Sub Command4_Click()
Dim usermsg As String
usermsg = InputBox("APA PESAN ANDA ?", "Massage Entri Form", "MASUKKAN PESAN ANDA DI SINI", 500, 700)
If usermsg <> "" Then
Label1 = usermsg
Else
Label1 = "NO MASSAGE"
End If
End Sub

Private Sub Command5_Click()
Form3.Show

End Sub