Расположить StatusBar по ширение экрана - VB

Формулировка задачи:

на форме расположен элемент управления StatusBar1, в котором расположены 7 панелей. расширение у всех мониторов разное, поэтому мне нужно расположить StatusBar1 по ширение экрана. что бы на любом компе, с любым расширением моника StatusBar1 был по ширине всего экрана. как это сделать? кинте код плиз!!

Решение задачи: «Расположить StatusBar по ширение экрана»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
' Ширина экрана в Twips или пикселях( убрать коммент)
 Wid = Screen.Width '/ Screen.TwipsPerPixelX
 PanelWid = Wid / 7
 Form1.Width = Wid
 For i = 1 To 7
 StatusBar1.Panels.Item(i).Width = PanelWid
 Next
 End Sub
                        