[VB] Sub che non funziona

[evil80]

Ciao a tutti,
ho scritto questa piccola sub per evitare di dover sempre riscrivere lo stesso codice (l'ho inserita in un modulo bus)

Public Sub SistemaForm(ByRef obj As Form)
    obj.Left = 0
    obj.Top = 0
    obj.Width = Principale.Width - 100
    obj.Height = Principale.Height
End Sub

la richiamo nell'evunto Form_load dei form ma ottengo l'errore 13 Type mismatch.....dove sbaglio ? Non capisco proprio perchè non vada

Private Sub Form_Load()
    SistemaForm (Me)
End Sub

Grazie...e ciao