'per il mousemove puoi fare così

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = ""

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = "Ano"

End Sub

'la prima domanda non ho capito cosa intendi..