Private Sub txtDaten_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
  Text1(Index).Visible = True
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Dim N As Long
 
  For N = 0 To Text1.UBound
    Text1(N).Visible = False
  Next
 
End Sub

Private Sub txtDaten(i)_MouseMove(Index As....