Private Sub frmTest_Closing(ByVal sender As Object, _
    ByVal e As System.ComponentModel.CancelEventArgs) _
    Handles MyBase.Closing
 
    If MsgBox("Wollen Sie wirklich abbrechen?" & vbCrLf & _
        "Es wird dann nicht gespeichert!",  MsgBoxStyle.YesNo) = _
        MsgBoxResult.Yes Then
 
        'hier: Schließen des Fensters
    Else
        'hier: Nicht Schließen
    End If
End Sub

Gru? Patrick
---
Wer nicht fragt, bleibt dumm.