不论是点2中的显示还是隐藏，状态栏1都会隐藏，显示不出来，请各位老师帮分析下，编程详见附图

[此贴子已经被作者于2023-1-2 21:33编辑过]

我测试 没问题，你的代码有问题

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

我刚才按照老师写得程序进行测试，还是和以前一样，下部1的位置的状态栏还是无法实现  显示  和  隐藏

我有个位置写错了 ，已经更改  谢谢！

Button的默认属性是Caption，所以你的 Case 的值是要与标题的值一样的。
如果是用key的值，case的值也要与button的key值一样。
ps：你的代码里的ture是错的，应该是true

观察入微，可以做将才。