要这样处理
Dim obj = Basemainform.Controls("C1StatusBar1")
obj.LeftPaneItems("Message1").MaxTextWidth = 500obj.LeftPaneItems("Message1").MinTextWidth = 500
StatusBar.Message1 = "1 "StatusBar.Message2 = "2"StatusBar.Message3 = "3"
加好友 
发短信
Post By：2016/8/1 15:52:00 [显示全部帖子]
