| Yes/No Question |
 |
 |
 |
| Tutorials | |||
| Written by Administrator | |||
|
Yes No Function [code] 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
[/code]
|
