Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Schalter As Boolean
 
    'vom Windows-Designer generierter Code
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If Schalter = True Then
            '
        Else
            MessageBox.Show("Goodbye!")
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Schalter = True
        Me.Close()
    End Sub
End Class

Robert Blutner
robertblutner.de