21 | 09 | 2017

Yes/No Question

Yes No Function

Private Sub Form_Load()
 
'*************************************
'**Downloaded from VisibleVisual.com**
'*************************************
 
    If Question("Do you like it? ") = True Then
    MsgBox "Yes its true"
    Else
    MsgBox "No it's not true"
    End If
 
End Sub
Function Question(ByVal Message As String) As Boolean
 
    'Display MessageBox
    Question = MsgBox(Message, vbQuestion + vbYesNo, "Question")
 
End Function
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2355351
Latest Articles