另类Msgbox

另类Msgbox(5)         'MessageBox的标题
        strTitle = "我的应用"
        'MessageBox的内容
        strPrompt = "这是 hook MessageBox 的演示" & vbCrLf & vbCrLf & _
                            "MessageBox的对话框将会居中在Form中"
        'MessageBox样式
        lngStyle = vbAbortRetryIgnore Or vbInformation
   
        Select Case Msgbox(hWnd, strPrompt, lngStyle, strTitle)
            Case vbRetry:  Text1.Text = "Retry button 按下"
            Case vbAbort:  Text1.Text = "Abort button 按下"
            Case vbIgnore: Text1.Text = "Ignore button 按下"
        End Select
    End Sub

    Private Sub Command2_Click()
        Form2.Show
    End Sub

Form2中的-----

    Option Explicit

    Private Sub Command1_Click()
        Call Msgbox(Me.hWnd, "确定按钮展示！", 0, "")
    End Sub