Here is the sub where the error comes up when i minimize a form.

Private Sub Form_Resize()
Image1.Width = ScaleX(picture2.Width, vbTwips, vbPixels) - 6
Image1.Height = ScaleY(picture2.Height, vbTwips, vbPixels) - 56
End Sub

If i want to minimize a form and make form resize work, is there anything i should do?