Remote Desktop. Передача кликов

Imports System.Net.Sockets
Imports System.Threading
Imports System.Drawing
Imports System.Runtime.Serialization.Formatters.Binary
 
Public Class Form2
 
    Dim client As New TcpClient
    Dim port As Integer
    Dim server As TcpListener
    Dim ns As NetworkStream
    Dim listening As New Thread(AddressOf Listen)
    Dim GetImage As New Thread(AddressOf ReceiveImage)
 
    Private Sub ReceiveImage()
        Dim bf As New BinaryFormatter
        While client.Connected = True
            ns = client.GetStream
            PictureBox1.Image = bf.Deserialize(ns)
        End While
    End Sub
 
    Private Sub Listen()
        While client.Connected = False
            server.Start()
            client = server.AcceptTcpClient
        End While
        GetImage.Start()
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        port = Integer.Parse(Form1.TextBox1.Text)
        server = New TcpListener(port)
        listening.Start()
    End Sub
 
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
 
    End Sub
End Class

Imports System.Net.Sockets
Imports System.Threading
Imports System.Drawing
Imports System.Runtime.Serialization.Formatters.Binary
 
Public Class Form1
 
    Dim client As New TcpClient
    Dim ns As NetworkStream
    Dim port As Integer
 
    Public Function Desktop() As Image
        Dim bounds As Rectangle = Nothing
        Dim screenshot As System.Drawing.Bitmap = Nothing
        Dim graph As Graphics = Nothing
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        Return screenshot
    End Function
 
    Private Sub SendDesktop()
        Dim bf As New BinaryFormatter
        ns = client.GetStream
        bf.Serialize(ns, Desktop())
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        port = Integer.Parse(TextBox2.Text)
        Try
            client.Connect(TextBox1.Text, port)
            MsgBox("Готово !")
        Catch ex As Exception
            MsgBox("Ну... Не получилось, не фортануло")
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendDesktop()
    End Sub
End Class