用户登录界面，根据接受到的数据显示第二个界面出错!界面直接就卡死了
用socket发送用户名和密码，根据服务器端返回的消息显示主界面，显示到一半就卡了，也不提示错误。具体代码：

While 1
            Dim buffer(1024) As Byte
            Dim count As Integer = 0
            Dim str As String = ""
            count = sock.Receive(buffer)
            If count > 0 Then
                str = System.Text.Encoding.Default.GetString(buffer, 0, count)
            End If
            If str = "1" Then
                Me.Hide()
                Form2.Show()
                Return
            End If
        End While

本来还想把这个做到线程里，但是一到放到线程里，就接收不到数据了，而且调用过一次以后就线程就不再执行
[解决办法]

dim bIsOne as boolean=false
While 1
            Dim buffer(1024) As Byte
            Dim count As Integer = 0
            Dim str As String = ""
            count = sock.Receive(buffer)
            If count > 0 Then
                str = System.Text.Encoding.Default.GetString(buffer, 0, count)
            End If
            If str = "1" Then
               bIsOne=true
               exit while
            End If
        End While

if iIsOne Then
 Me.Hide()
 Form2.Show()
end if