Public Class VNC
    Inherits System.Windows.Forms.Form
 
 
    Public Shared server As String
    Public Shared port As String
    Public Shared passwort As String
    Dim admin As New admin()
 
 
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents AxVNCViewer1 As AxVNCXLib.AxVNCViewer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New _
          System.Resources.ResourceManager(GetType(VNC))
        Me.AxVNCViewer1 = New AxVNCXLib.AxVNCViewer()
        CType(Me.AxVNCViewer1, _
          System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxVNCViewer1
        '
        Me.AxVNCViewer1.Location = New System.Drawing.Point(8, 8)
        Me.AxVNCViewer1.Name = "AxVNCViewer1"
        Me.AxVNCViewer1.OcxState = CType(resources.GetObject( _
          "AxVNCViewer1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxVNCViewer1.Size = New System.Drawing.Size(320, 272)
        Me.AxVNCViewer1.TabIndex = 0
        '
        'VNC
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(880, 645)
        Me.Controls.AddRange(New System.Windows.Forms.Control() _
          {Me.AxVNCViewer1})
        Me.Name = "VNC"
        Me.Text = "VNC"
        CType(Me.AxVNCViewer1, _
          System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
 
    Private Sub VNC_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Text = server
        admin.logging("Fenster: " & Me.Text & " gestartet")
        Me.WindowState = FormWindowState.Maximized
        AxVNCViewer1.Height = 300
        AxVNCViewer1.Width = 200
        AxVNCViewer1.StretchX()
        AxVNCViewer1.StretchY()
        AxVNCViewer1.Connect(server, port, passwort)
        admin.logging("Verbindung mit VNC Server herstellen: " & server & "" & _
          ".....")
    End Sub
 
 
    Private Sub AxVNCViewer1_Connected(ByVal sender As System.Object, ByVal e _
      As AxVNCXLib._IVNCViewerEvents_ConnectedEvent) Handles _
      AxVNCViewer1.Connected
        AxVNCViewer1.Enabled = True
        AxVNCViewer1.Start()
        admin.logging("Verbindung hergestellt")
    End Sub
 
 
End Class

Mfg

Michael