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