Forms Won't Load? Please Help! (Using IAsyncResult)

[ssabusivefw]

I am basically writing a server/client application. The client application starts on the login in form where the user is required to enter a user name and password. These are encrypted sent to the server which the server checks against know users. If the user has enter the correct information the server sends back the code <LIGO> which is telling the client software that the login is good. At this point the client software should change to the main form (frmMain) and the login form (frmLogin) should be hidden. However, when frmMain is loaded, it hangs. If you put your mouse of it, it is an hour glass, and if you click on the form the caption will change to "(Not Responding)." On top of this, the login form does not hide. This is the code that is supposed to change the forms (which I currently have in a module)

Private Sub winsock_DataReceived(ByVal sender As TCPConnection, ByVal Data As String, ByVal BytesReceived As Long) Handles winsock.DataReceived
        If InStr(Data, "<PUPA>") > 0 Then
            SetServerKey(Data)
            CreateLoginInformation()
        ElseIf InStr(Data, "<LIGO>") Then
            frmMain.Show()
            frmLogin.Hide()
        End If
    End Sub
 

If I step through the code, right after this sub is finished it goes to this sub:

Private Sub BuildString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer)
        Dim intIndex As Integer
        Dim txt As String
        'Console.WriteLine("BuildString")
        m_State = 2
 
        objText = New StringBuilder()
        For intIndex = offset To offset + count - 1
            txt = ChrW(Bytes(intIndex))
            objText.Append(txt)
        Next
        RaiseEvent DataReceived(Me, objText.ToString, objText.Length)
        m_State = 1
    End Sub
 

and then to this:

 Private Sub Receive(ByVal ar As IAsyncResult)
        ' Start the data receiving process 
        Dim intCount As Integer
        Console.WriteLine("Received")
        Try
            SyncLock objClient.GetStream
                intCount = objClient.GetStream.EndRead(ar)
            End SyncLock
            If intCount < 1 Then
                RaiseEvent Disconnected(Me)
                m_State = 0
                Exit Sub
            End If
 
            BuildString(arData, 0, intCount)
            SyncLock objClient.GetStream
                objClient.GetStream.BeginRead(arData, 0, 1024, AddressOf Receive, Nothing)
            End SyncLock
        Catch e As Exception
            RaiseEvent SockError(e.Message.ToString)
            RaiseEvent Disconnected(Me)
            m_State = 0
        End Try
 

Does anyone have any ideas? Everything else up to this point works fine. It just won't switch forms. Thanks in advanced.