Private Sub Form1_Closing(ByVal sender As Object, _
      ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If password.Text = passwd Then
            e.Cancel = False
        Else
            MsgBox("Keine Berechtigung!")
            e.Cancel = True
        End If
    End Sub