Private Sub Form1_FormClosing(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.FormClosingEventArgs) _
  Handles Me.FormClosing
 
  If MsgBox("Wirklich beenden?", MsgBoxStyle.Question Or _
    MsgBoxStyle.YesNo) = MsgBoxResult.No Then
 
    e.Cancel = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de