如果你建立了一个菜单叫mnuFile,则在他的Click()事件中编程即可。比如:Private Sub mnuFile_Click()
   MsgBox "打开文件"
End Sub

解决方案 »

  1.   

    '请把下面的保存为 Form1.frm
    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   3195
       ClientLeft      =   165
       ClientTop       =   735
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  'Windows Default
       Begin VB.Menu mun_File 
          Caption         =   "&File"
          Begin VB.Menu num_Open 
             Caption         =   "&Open"
          End
          Begin VB.Menu num_Save 
             Caption         =   "&Save"
          End
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    ' 在通用里选一个
    Private Sub num_Open_Click()
        Print "Open"
    End SubPrivate Sub num_Save_Click()
        Print "Save"
    End Sub
      

  2.   

    '写在click事件中
    Private Sub menu_Click()
        Form2.Show 1
    End Sub
      

  3.   

    最简单的方法就是:
    Dim x
    x = Shell("C:\app.EXE", 1) 绝对没问题