VB如何弹出提示框

Question

用VB弹出提示框，提示框内容如图当用户点击确定按钮时则运行d:\1.exe,当用户点击取消按钮时则运行d:\2.exe，VB代码该怎么写？我是菜鸟，希望高手们能够把代码和过程尽可能的写详细点，谢谢！~~~

Answer 1

Private Sub Command1_Click()
    Dim retValue As Long
    
    retValue = MsgBox("提示：是否立即运行应用程序？", vbQuestion + vbOKCancel, "提示")
    
   If retValue = vbOK Then
      Call Shell("d:\1.exe", vbNormalFocus)
   Else
     If retValue = vbCancel Then
        Call Shell("d:\2.exe", vbNormalFocus)
     End If
   End If
    
    
    
End Sub

Answer 2

Option Explicit
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Command1_Click()
    MessageBox Me.hwnd, "Ìáʾ£ºÊÇ·ñÁ¢¼´ÔËÐÐÓ¦ÓóÌÐò£¿", "Ìáʾ", vbYesNo + vbQuestion
End Sub

Answer 3

msgbox不能设置字体，
最好自己弄一个对话框