Public Class frmDataSelect

    Dim m_selectedvalue As String
    Property SelectedValue As String
        Get
            Return m_selectedvalue
        End Get
        Set(value As String)
            m_selectedvalue = value
        End Set
    End Property
    Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
    End Sub

    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
        Me.SelectedValue = Me.C1Daten.Columns(0).Value
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub


    Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
        Exit Sub
    End Sub

End Class