我测试 没问题,你的代码有问题
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
MsgBox Button
Select Case Button
Case "显示"
Me.StatusBar1.Visible = True
Case "隐藏"
Me.StatusBar1.Visible = False
Case "退出"
End Select
End Sub