vb6-msgbox personalizzati

[axsw]

Non sò se ti và bene ma ci provo

Private Sub command1_Click()
Dim risposta As Integer
 risposta = MsgBox("Primo messaggio" & vbCrLf & "secondo messaggio" & vbCrLf & _
"Terzo messaggio", vbYesNoCancel + vbQuestion, "Titolo prg.")
  If risposta = vbYes Then
'quello che vuoi che faccia
  End If
  If risposta = vbNo Then
'qualcos'altro che deve fare
  End If
  If risposta = vbCancel Then
   Exit Sub
  End If
End sub