Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
      Select Case UnloadMode
         Case vbFormControlMenu
            If vbNo = MsgBox("Wirklich beenden...?", vbYesNo Or vbQuestion, _
              "Titel") Then
               Cancel = True
            End If
         Case Else
      End Select
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.