菜单是厨师定的
菜单服务员拿的
Private Sub Command1_Click() Call BVC Frame1.Visible = True End Sub Private Sub Command2_Click() Call BVC Frame2.Visible = True End Sub Private Sub Command3_Click() Call BVC Frame3.Visible = True End Sub Private Sub Command4_Click() Call BVC Frame4.Visible = True End Sub Private Sub Form_Load() Call Command1_Click End Sub Private Sub BVC() Frame1.Visible = False Frame2.Visible = False Frame3.Visible = False Frame4.Visible = False End Sub