Метод программируемого перетаскивания

Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
If Source = Label2 Then
 
Label1 = Label2
End If
 
End Sub
 
Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
If Source = Label1 Then
Label2 = Label1
End If
End Sub

Private Type POINTAPI
  X As Long
  Y As Long
End Type
Dim k As POINTAPI
 
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
k.X = X: k.Y = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c_m Command1, Button, X, Y, k
End Sub
 
'-----------------------------------
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
k.X = X: k.Y = Y
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c_m Label1, Button, X, Y, k
End Sub
 
'-------------------------------------
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
k.X = X: k.Y = Y
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c_m Picture1, Button, X, Y, k
End Sub
 
'=====================================
Private Sub c_m(c As Object, Button As Integer, X As Single, Y As Single, k1 As POINTAPI)
If Button = 1 Then
c.Move c.Left + X - k1.X, c.Top + Y - k1.Y
End If
End Sub

Load Label1(2)
Label1(2).move  Label1(1).left ,Label1(1).top *2
Label1(2).visible = true

for f= 1 to 15
 KolFish = len (TextFish)
 res = Fix(Rnd * KolFish)
 mid(TextFish,res+1,1) = "-"
 TextFish = replace (TextFish,"-","")
x = x &  res & ","

Private Sub Form_Load()
Dim i As Single, j As Single, num_pos(0 To 15) As Single, k As Boolean
For i = 0 To 15
Randomize
num_pos(i) = Int(16 * Rnd)
For j = 0 To 14
If num_pos(i) = num_pos(j) And i <> j Then
i = i - 1
j = 15
End If
Next
Next
For i = 0 To 15
num(i).Caption = num_pos(i)
If num_pos(i) = 0 Then num(i).Caption = ""
Next
End Sub