Example : You draw the same Interface as in example

Example
You draw the same Interface as in example but modify the codes as follows:



Private Sub test2_Click()
Dim testMsg2 As Integer


testMsg2 = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message")





If testMsg2 = 6 Then


display2.Caption = "Testing successful"


ElseIf testMsg2 = 7 Then


display2.Caption = "Are you sure?"


Else display2.Caption = "Testing fail"





End If



End Sub



In this example, the following message box will be displayed: