Imports System.Drawing
Public Class cls_GridEntwurf
    Inherits System.Windows.Forms.Design.ControlDesigner
 
    Protected Overrides Function GetHitTest(ByVal point As _
      System.Drawing.Point) As Boolean
        ' Return MyBase.GetHitTest(point)
 
        'Referenz des Steuerelements
        Dim cuc As uc_DataGrid = DirectCast(Control, uc_DataGrid)
 
        'Koordinaten des angegebenen Punktes sind
        'Bildschirmkoordinaten und müssen umgerechnet werden.
        Dim p1 As Point = cuc.PointToClient(point)
        If p1.Y = 2 Then
            cup_System.cls_System_Global.DS_SystemGridEntwurd.tblGridColumns.Cl_
              ear()
 
            Dim dr As DataRow
 
            Try
                For i As Integer = 0 To cuc.DisplayLayout.Bands( _
                  0).Columns.Count - 1
                    dr = _
                    cup_System.cls_System_Global.DS_SystemGridEntwurd.tblGridCo_
                    lumns.NewRow
                    dr.Item(0) = cuc.DisplayLayout.Bands(0).Columns( _
                    i).Header.Caption
                    cup_System.cls_System_Global.DS_SystemGridEntwurd.tblGridCo_
                    lumns.Rows.Add(dr)
                Next
            Catch ex As Exception
            End Try
 
            Try
 
            Catch ex As Exception
            End Try
        End If
    End Function
end class

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)