Public Function MsgBox(ByVal sPrompt As String, _
    Optional ByVal nButtons As sevMsgBoxStyle = vbOKOnly, _
    Optional ByVal sTitle As String, _
    Optional ByVal sHelpFile As String, _
    Optional ByVal nContextID As Long, _
    Optional ByVal bShowCheckBox As Boolean = False, _
    Optional sCheckBoxCaption As String = "", _
    Optional ByVal nChecked As VBRUN.CheckBoxConstants = -2, _
    Optional ByVal nAutoCloseSec As Long = 0, _
    Optional ByVal oIcon As StdPicture = Nothing) As sevMsgBoxResult
 
    ' sevMsgBox-Klasse instanzieren
    Dim oMsgBox As New sevXPControls.sevMsgBox
 
    With oMsgBox
        ' XP-Style aktivieren
        .XPStyle = True
        .XPColorStyle = mbBlue
        ' MsgBox zentriert über das aktuelle Fenster anzeigen
        .CenterForm CenterOnActiveWindow
 
        ' MsgBox anzeigen
        MsgBox = .MsgBox(sPrompt, nButtons, sTitle, sHelpFile, _
            nContextID, bShowCheckBox, sCheckBoxCaption, nChecked, _
            nAutoCloseSec, oIcon)
    End With
    Set oMsgBox = Nothing
End Function