Private Sub TxtDaten_MouseMove(Index As Integer,Button As Integer, Shift As _
  Integer, X As Single, Y As Single) 
HilfeText(Index).Visible = True 
End Sub

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.