程序代码：

Private Sub MDIForm_Resize()
Dim w As Single
Dim p As Panel

''取平均值
'w = Me.Width / StatusBar1.Panels.Count
'
'For Each p In StatusBar1.Panels
'    p.Width = w
'Next

'只调整最后一个panel
Dim totalWidth As Single
For Each p In StatusBar1.Panels
    totalWidth = totalWidth + p.Width
Next
Set p = StatusBar1.Panels(StatusBar1.Panels.Count)
On Error Resume Next
p.Width = p.Width + Me.Width - totalWidth
Set p = Nothing
End Sub