Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = X + 70
Label1.Top = Y + 70
End Sub 'можно другой обьект.

как издать звук из системного динамика?

Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Dim i As Long

' Функция BeepAPI:
' первый параметр - частота,
' второй параметр - длительность (милисекунды).

For i = 1 To 5
Call BeepAPI(1000, 200)
Call BeepAPI(1500, 54)
Call BeepAPI(450, 40)
Next i
Call BeepAPI(20, 300)
End Sub