CallBack Function ShowDIALOG1Proc()
 
    Select Case CbMsg
        Case %WM_COMMAND
            Select Case CbCtl
                Case %IDC_BUTTON1
                    If CbCtlMsg = %BN_CLICKED Or CbCtlMsg = 1 Then
                        MsgBox "Das ist der Text .... :gripe: , _
                            %MB_SYSTEMMODAL
                    End If
 
            End Select
    End Select
End Function
 
Wobei in diese Routine alles läuft, was ein Ereignis sendet :D - es gibt kein _
  Event je
Kontroll als separate Routine - ist auch schwachsinn.