YesOrNo

Et kertonut käytätkö VB6 vai VB.NET...

VB.NET:ssä tähän tapaan:

Dim answer As DialogResult = _
MessageBox.Show("En taida ymmärtää?", "Testi", MessageBoxButtons.YesNo, MessageBoxIcon.None)
      
If answer = DialogResult.No Then
MessageBox.Show("NO")
Else If answer = DialogResult.Yes Then
MessageBox.Show("YES")
End If

VB6:ssa taasen vaikka näin:

Dim answer As Long

answer = MsgBox("En taida ymmärtää?", vbYesNo, "Testi")

If answer = vbNo Then
MsgBox ("NO")
ElseIf answer = vbYes Then
MsgBox ("YES")
End If