[RESOLVED] Label Resize Error ,Please Help !

[nUflAvOrS]

I would like to resize the label when the form is resized.
But an error pop up 'Invalid call of arguement'
What the problem of my code ?

Private Sub Form_Resize()
Dim ctrl As Control
 
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is Label Then
            ctrl.Move ctrl.left, ctrl.tOp, _
            Me.ScaleWidth - ctrl.left * 2, _
            Me.ScaleHeight - ctrl.tOp - ctrl.left
        End If
    Next      
End Sub

Thanks for help