Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        While True
            Try
                i += 1
                Dim f As New Form
                f.Size = New Size(100, 100)
                f.Show()
                f.Close()
                f.Dispose()
                Debug.WriteLine(i.ToString)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End While
    End Sub