Probleme de Resize

En fait je cherche a resize des elements d une fenetre et j utilisait cette condition

If TypeOf Object Is Line Then
Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2)
Else
Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.left) & ":" & CStr(Object.top)
End If



ca marchait nikel mais la j ai applike ca sur une nouvelle fenetre et ya un element kil arrive pas a rezise mais je C pas lekel

une petite idee ??

Merci

humm bizzar
j ai l impression que des qu'il commence la boucle il ne trouve aucun Object dans la fenetre ......

For Each Object In Me
If TypeOf Object Is Line Then
Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2)
Else
Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.left) & ":" & CStr(Object.top)
End If
next Object


Tetris