' the thread called method
Public Sub receiveData()
Dim statusck As Integer
networkStream = tcpClient.GetStream()
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
If networkStream.CanRead = True Then
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, bytes.Length)
If (returndata.ToString <> "") Then
If (returndata.ToString = 9) Then
Me.WindowState = FormWindowState.Minimized
Me.NotifyIcon1.Visible = True
EnableLowLevelKeys(True)
ElseIf (returndata.ToString = 1) Then
Me.WindowState = FormWindowState.Maximized
Me.NotifyIcon1.Visible = False
Me.Visible = True
Me.Show()
EnableLowLevelKeys(False)
ElseIf (returndata.ToString = 0) Then
stopWhile()
MsgBox(running)
Disconnect()
Me.NotifyIcon1.Visible = False
MsgBox("I am here 1")
thrd.Abort() ' always hang here
MsgBox("I am here 2")
Application.Exit()
End If
End If
End If
networkStream.Flush()
End Sub