Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  With MSFlexGrid1
    If .MouseCol > 0 And .MouseRow > 0 Then
      ' bspw Zelle als ToolTip anzeigen
      .ToolTipText = "Zelle: " & CStr(.MouseRow) & "," & CStr(.MouseCol)
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de