guarda ho scritto questa e mi funziona perfettamente....

codice:
Public Sub SistemaForm(obj As Form)
    obj.Left = 0
    obj.Top = 0
    obj.Width = Principale.Width - 100
    obj.Height = Principale.Height
End Sub
Comunque grazie 1000 lo stesso!