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 = 0, _
  Optional ByVal bShowCheckBox As Boolean = False, _
  Optional ByVal 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  
    ' Je nach System, MsgBox im XP-Look oder 
    ' im klassischen Look anzeigen
    .UseSystemSettings = True
 
    ' MsgBox anzeigen  
    MsgBox = .MsgBox(sPrompt, nButtons, sTitle, sHelpFile, _
      nContextID, bShowCheckBox, sCheckBoxCaption, nChecked, _
      nAutoCloseSec, oIcon)
  End With    
 
  Set oMsgBox = Nothing
End Function