Dim nTop AS Long
 
' Berechnet die Position der unteren Kante der selektierten Zeile
With Grid1
  nTop = IIf(.ColumnHeadersVisible, .ColumnHeaderHeight, 0) + _
      ((.Row - .TopRow + 1) * (.RowHeight + _
      IIf(.GridLines = GRID_BOTH Or .GridLines = GRID_HLINE, .GridLineWidth, _
      0)))
 
  nTop = .Top + (nTop * Screen.TwipsPerPixelY)
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de