Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" _
   (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, _
   ByVal uType As Long) As Long
 
'MessageBox / MessageBoxEx / MessageBoxIndirect Rückgabe-Konstanten
Private Const IDABORT = 3 'Beenden wurde gewählt
Private Const IDCANCEL = 2 'Abbrechen wurde gewählt
Private Const IDIGNORE = 5 'Ignorieren wurde gewählt
Private Const IDNO = 7 'Nein wurde gewählt
Private Const IDOK = 1 'OK wurde gewählt
Private Const IDRETRY = 4 'Wiederholen wurde gewählt
Private Const IDYES = 6 'Ja wurde gewählt
 
'Messagebox / MessageBoxEx uType - Konstanten / MSGBOXPARAMS dwStyle-Konstanten
Private Const MB_ABORTRETRYIGNORE = &H2 'Abbrechen, Wiederholen, Weiter
Private Const MB_HELP = &H4000 'Hilfe, ist nur sichtbar in verbindung mit einem 
' anderen Button
Private Const MB_OK = &H0 'OK
Private Const MB_OKCANCEL = &H1 'OK, Abbrechen
Private Const MB_RETRYCANCEL = &H5 'Wiederholen, Abbrechen
Private Const MB_YESNO = &H4 'Ja, Nein
Private Const MB_YESNOCANCEL = &H3 'Ja, Nein, Abbrechen
Private Const MB_ICONERROR = &H10 'Fehler Symbol
Private Const MB_ICONEXCLAMATION = &H30 'Ausrufezeichen Symbol
Private Const MB_ICONINFORMATION = &H40 'Informations Symbol
Private Const MB_ICONQUESTION = &H20 'Fragezeichen Symbol
Private Const MB_DEFBUTTON1 = &H0 'Standardbutton 1
Private Const MB_DEFBUTTON2 = &H100 'Standardbutton 2
Private Const MB_DEFBUTTON3 = &H200 'Standardbutton 3
Private Const MB_DEFBUTTON4 = &H300 'Standardbutton 4
Private Const MB_APPLMODAL = &H0 'Die Messagebox ist Modal zum Programm
Private Const MB_SYSTEMMODAL = &H1000 'Die Messagebox ist Modal zum System
Private Const MB_TASKMODAL = &H2000 'Die Messagebox ist Modal zum Thread
Private Const MB_DEFAULT_DESKTOP_ONLY = &H20000 '(Win NT/2000) die Dialogbox 
' wird nur auf dem Standard Desktop angezeigt
Private Const MB_RIGHT = &H80000 'Der Text wird Recht ausgerichtet
Private Const MB_RTLREADING = &H100000 'Richtet die Schrift der Dialogbox von 
' Rechts nach Links fall dies der Systemstandard ist
Private Const MB_SETFOREGROUND = &H10000 'Die Messagebox wird in dem 
' Fordergrund gebracht.
Private Const MB_USERICON = &H80& '(MSGBOXPARAMS) legt fest das ein 
' Benutzerdefiniertes Icon angezeigt werden soll
Private Const MB_TOPMOST = &H40000 'na was schon, MsgBox wird als 1. in der 
' Z-Order angezeigt
 
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
 
Private Sub Command1_Click()
   Dim MsgResult As Long
 
   'MessageBox aufrufen
   MsgResult = MessageBox(Me.hWnd, "Text der MsgBox", "Titelleistentext", _
     MB_OKCANCEL Or MB_TOPMOST Or MB_ICONERROR)
 
   'MessageBox Auswerten
   If MsgResult = IDOK Then
      Me.Print "OK wurde gewählt"
   ElseIf MsgResult = IDCANCEL Then
      Me.Print "Abbrechen wurde gewählt"
   End If
End Sub

cu

ari