Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 2
frm_in.Show , 1
Case 4
frm_out.Show , 1
Case 6
QUERY.Show , 1
Case 8
STAT.Show , 1
Case 10
BACKUP.Caption = "数据备份"
BACKUP.Show , 1
Case 12
BACKUP.Caption = "数据恢复"
BACKUP.Show , 1
Case 14
c = MsgBox("确认要退出吗？", 33, "提示")
If c = vbOK Then
Unload Me
End If

End Select
End Sub
当我运行时,点击toolbar中的按钮,就会显示 类型不匹配 是.show出问题,还是别的什么,还需要添加引用吗?麻烦高手帮我看一下,先谢

哦,不好意思,我知道了,不能写成
窗体.show 1
要写成窗体.show vbmodal
呵呵

不是这样的吧. 你注意你前面写的, 多了一个逗号, 把逗号去掉试试. 如果加了这个逗号, 后面参数什么意思,自己找答案去吧.

BACKUP.Show , 1，不能要逗号，否则就会报：类型不匹配

以上两楼正解