Private Sub Grid1_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer, sToolTip As String)
 
  With Grid1
    ' Abfrage...
    If ... Then
      sToolTip = "Zeile 1" & vbCrLf & "Zeile 2"
    Else
      sToolTip = ""
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de