' Ermittelt die erste sichtbare Spalte im sevDataGrid Control
Public Function GridGetFirstVisibleCol(ByRef oGrid As Object) As Long
  Dim i As Long
  Dim nCol As Long
  Dim nPos As Long
 
  nPos = 0
  With oGrid
    For i = 1 To .Cols
      With .Columns(i)
        If nPos = 0 Or .Position < nPos Then
          nCol = i
          nPos = .Position
        End If
      End With
    Next i
  End With
 
  GridGetFirstVisibleCol = nCol
End Function

nCol = GridGetFirstVisibleCol(Grid1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de