Не открывается Form1 - Visual Basic .NET

Формулировка задачи:

Не открывается Form1. Что не так в этом коде ? Beep работает. Если без Loop'a - Form1. открываэтся. Спасибо.

Imports System          'To Access Console.WriteLine()
Imports System.IO.Ports 'To Access the SerialPort Object
 
Public Class Form1
 
    Private Declare Function Beep Lib "kernel32" (ByVal soundFrequency As Int32, ByVal soundDuration As Int32) As Int32
 
    Dim MyCOMPort As SerialPort = New SerialPort()
    Dim DataReceived As String
    '------------------------------------------------------------------------------
    Public Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
         
         If e.KeyCode = Keys.Escape Then
            If MyCOMPort.IsOpen = True Then MyCOMPort.Close()
           End If
    End Sub
    '------------------------------------------------------------------------------
    Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        MyCOMPort.PortName = "COM4"   'Assign the port name to the MyCOMPort object
        MyCOMPort.BaudRate = 9600      'Assign the Baudrate to the MyCOMPort object
        MyCOMPort.Parity = Parity.None   'Parity bits = none  
        MyCOMPort.DataBits = 8             'No of Data bits = 8
        MyCOMPort.StopBits = StopBits.One  'No of Stop bits = 1
        MyCOMPort.Open()                    ' Open the port
      
        ToLoop()
 
    End Sub
    '------------------------------------------------------------------------------
    Public Sub ToLoop()
 
        Do
          DataReceived = MyCOMPort.ReadLine() ' Waiting for Data  1 Sec
           Me.TextBox1.Text = DataReceived
            Beep(500, 50)
        Loop
    End Sub
    '------------------------------------------------------------------------------
End Class

Решение задачи: «Не открывается Form1»

textual
                            Листинг программы 
                        

                            Imports System.IO.Ports
 
Public Class Form1
    Private Declare Function Beep Lib "kernel32" (ByVal soundFrequency As Int32, ByVal soundDuration As Int32) As Int32
    Private WithEvents MyCOMPort As New SerialPort()
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyCOMPort.PortName = "COM4"   'Assign the port name to the MyCOMPort object
        MyCOMPort.BaudRate = 9600      'Assign the Baudrate to the MyCOMPort object
        MyCOMPort.Parity = Parity.None   'Parity bits = none  
        MyCOMPort.DataBits = 8             'No of Data bits = 8
        MyCOMPort.StopBits = StopBits.One  'No of Stop bits = 1
        MyCOMPort.Open()                    ' Open the port
    End Sub
 
    Private Sub MyCOMPort_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles MyCOMPort.DataReceived
        TextBox1.Text = MyCOMPort.ReadLine
        Beep(500, 50)
    End Sub
End Class
                        