主题：状态栏的长度可以调整吗

Dim obj As Object
obj = Basemainform.Controls("C1StatusBar1")
obj.RightPaneWidth = 0

StatusBar.Message1 = "中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁中华人民共和国万岁"