 ...

     (Module)   (Form)   ɡ  :

*    ( ""  " " ... ).
*         MsgBox.
*      .
*    .
*    .

     MsgBox  VB6     (    )    .

 :
 .   MMessageBoxEx.bas (  Module)  FMessageBoxEx.frm (  Form)  ڡ        ShowMessage   .

Public Function ShowMessage( _
                            ByVal AMessage As String, _
                            Optional ByVal ACaption As String = "", _
                            Optional ByVal AButtons As TMsgBoxExButtons = mbButtonOk, _
                            Optional ByVal AIcon As TMsgBoxExIcon = mbIconNone, _
                            Optional ByVal ARightToLeft As Boolean = True, _
                            Optional ByVal ADefaultButton As TMsgBoxExDefButton = mbDefButton1, _
                            Optional ByVal ACustomButtons As String = "", _
                            Optional ACustomIcon As StdPicture = Nothing, _
                            Optional AFont As StdFont = Nothing, _
                            Optional ByVal ABackColor As OLE_COLOR = vbButtonFace, _
                            Optional ByVal ATextColor As OLE_COLOR = vbWindowText _
                           ) As VbMsgBoxResult

*        ɡ       (   )     ( ).

=  AMessage ( String):  .

=  ACaption ( String):  .            (App.Title)  .        -    -  .

=  AButtons ( TMsgBoxExButtons):     .  TMsgBoxExButtons    Module   :
# mbButtonOk:  :  ( )
# mbButtonOKCancel: :  -  
# mbButtonYesNo: :  - 
# mbButtonYesNoCancel:  :  -  -  
# mbButtonRetryCancel: :   -  
# mbButtonAbortRetryIgnore:  :  -   - 

=  AIcon ( TMsgBoxExIcon):   .  TMsgBoxExIcon    Module   :
# mbIconNone:   ( )
# mbIconInformation:   
# mbIconQuestion:   
# mbIconExclamation:   
# mbIconCritical:   
# mbIconCustom:    .        .

=  ARightToLeft ( Boolean):           -  ()      - .         ɡ      :
# True ():               ѡ   .
# False:    ѡ     ѡ         .

=  ADefaultButton ( TMsgBoxExDefButton):           .  TMsgBoxExDefButton    Module   :
# mbDefButton1:    ( )
# mbDefButton2:   
# mbDefButton3:   

=  ACustomButtons ( String):    .             (   ).    ۡ      .

=  ACustomIcon ( StdPicture  ):     .     : 1.    AIcon    mbIconCustom  2.      (  Image1.Picture     Image1  ).   NoThing      .

=  AFont ( StdFont  ):         .   NoThing        (     Tahoma   10).

=  ABackColor ( OLE_COLOR  ):     .   vbButtonFace      .

=  ATextColor ( OLE_COLOR  ):    .   vbWindowText       .

***       Module ( TMsgBoxExButtons  TMsgBoxExIcon  TMsgBoxExDefButton)    ɡ                .

*     ShowMessage       MsgBox   VB6 :
# vbOK:      = 1
# vbCancel:       = 2
# vbAbort:      = 3
# vbRetry:       = 4
# vbIgnore:      = 5
# vbYes:      = 6
# vbNo:      = 7

*** :

'        
    ShowMessage " "

'     
    ShowMessage " ", "My Message"

'    3 :  -  -  
    ShowMessage " ", "My Message", mbButtonYesNoCancel

'    3 :  -  -  ѡ      
    ShowMessage " ", "My Message", mbButtonYesNoCancel, , , mbDefButton2

'     
    ShowMessage " ", "My Message", mbButtonRetryCancel, mbIconExclamation

'   -    
    ShowMessage " ", "My Message", mbButtonRetryCancel, mbIconExclamation, False

'    :  -  -   :  -  -  
    ShowMessage " ", "My Message", mbButtonYesNoCancel, mbIconExclamation, , , ";; "

'    
    ShowMessage " ", "My Message", mbButtonRetryCancel, mbIconCustom, , , , Picture1.Picture

'     -       
    ShowMessage "Test Message", "My Message", mbButtonRetryCancel, mbIconCustom, , , , LoadPicture("E:\ImageStore\Computer01.GIF")

'    
    ShowMessage " ", "My Message", mbButtonRetryCancel, mbIconExclamation, , , , , Text2.Font

'      
    ShowMessage " ", "My Message", mbButtonRetryCancel, mbIconExclamation, , , , , , &H8CE6F0, &H8515C7

   .
