Message Box Fork

[Ryu]

Im trying to get a message box to display a Yes or No question and depending on the answer, will operate a function.

Its not working properly, and I dont know why. my code is as follows:

Private Sub Form_Load()
 
Msgbox "Have you played this game before", vbYesNo, "Attention!"
 
If (vbMsgboxResult.vbNo = "No") Then
 
cmd_hack.Enabled = False
cmd_start.Enabled = False
 
End If
End Sub

It's giving me an error message when I press No... I think its something with the If statement... could anyone possibly help?

[Zaei]

If MsgBox(...) = vbNo Then
...

Z.

[Ryu]

heh, I just figured it out doing it a different way.

But thanks anyways ^_^

[Ryu]

Actually, Im having a new problem now.

When I click yes, it performs the same function that no would do. My code is as follows.

Private Sub Form_Load()
 
MsgBox "Have you played this game before?", vbYesNo, "Attention!"
 
If VbMsgBoxResult.vbNo = vbNo Then
 
cmd_hack.Enabled = False
cmd_start.Enabled = False
 
Else
 
If VbMsgBoxResult.vbYes = vbYes Then
 
cmd_hack.Enabled = True
cmd_start.Enabled = True
 
 
End If
End If
End Sub

[Zaei]

Remove the If statement in the Else statement.

Z.

[Ryu]

I have it like this now:

Else
 
VbMsgBoxResult.vbYes = vbYes
 
cmd_hack.Enabled = True
cmd_start.Enabled = True

Its saying the .vbYes =

"assignment to constant not permitted."