rd.ConnectComplete += new ConnectCompleteHandler(ConnectComplette);

    Private Sub VncSharpClientForm_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        rd = New RemoteDesktop()
        rd.Dock = DockStyle.Fill
        rd.Location = New Point(0, 0)
        Me.Controls.Add(rd)
 
        rd.ConnectComplete = New ConnectCompleteHandler(AddressOf _
          ConnectComplete)
 
    End Sub
 
    Protected Sub ConnectComplete(ByVal sender As Object, ByVal e As _
      ConnectEventArgs)
        ClientSize = New Size(e.DesktopWidth, e.DesktopHeight)
        Text = e.DesktopName
    End Sub