[VB6] - error message without ID only message

[4x2y]

When you resize the control inside its Resize event, it is fire infinity, to control this, add a flag to exit the Resize event when perform resize inside it, Ex

Private Sub Form_Resize()
    Static blnResizing As Boolean
    
    If blnResizing Then Exit Sub' comment this line and see the difference :-)
    
    blnResizing = True
    Me.Width = Me.Width + Screen.TwipsPerPixelX * 8
    blnResizing = False
End Sub