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
 
            e.Cancel = True
        End If
    End Sub