Public Class frmDescription

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmDescription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.c1db.Splits(0).DisplayColumns(0).Width = 0
        Me.c1db.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1db.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1db.Columns(1).Caption = "Datenbankname"
        Me.c1db.Columns(2).Caption = "Beschreibung"

        Me.c1appl.Splits(0).DisplayColumns(0).Width = 0
        Me.c1appl.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1appl.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1appl.Columns(1).Caption = "Applikation"
        Me.c1appl.Columns(2).Caption = "Beschreibung"

        Me.c1virt.Splits(0).DisplayColumns(0).Width = 0
        Me.c1virt.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1virt.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1virt.Columns(1).Caption = "Servername"
        Me.c1virt.Columns(2).Caption = "Beschreibung"
        Me.txtName.Focus()

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
End Class