Перемещение Label с помощью мыши - VB

Формулировка задачи:

1) Чтобы можно было тоскать по форме один лейбл 2) Чтобы когда я им касался других лейблов выводило что-то вроде ошибки, и желательно программа запускалась заново...

Решение задачи: «Перемещение Label с помощью мыши»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Const SNAP! = 5
Dim Xdown!, Ydown!
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'ГЃГҐГ§ ГЅГІГ®Г© ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г» Г¬Г®Г¦Г*Г® Г®ГЎГ®Г©ГІГЁГ±Гј, Г*Г® Г± Г*ГҐГ©
'Г¬Г»ГёГЄГ* Г·ГіГІГј ГЎГ»Г±ГІГ°ГҐГҐ "Г§Г*Г¶ГҐГЇГ«ГїГҐГІ" Г®ГЎГєГҐГЄГІ
 
Xdown = X: Ydown = Y
 
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim l!, t!
If Button = 1 Then
    With Label1
    Label1.Left = X - Label1.Width / 2
Label1.Top = Y - Label1.Height / 2
End With
Else
Xdown = X: Ydown = Y
End If
End Sub
                        