Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
If Button = vbLeftButton Then
    Form1.Cls
    Picture1.Left = Picture1.Left + (X - Picture1.Width / 2)
    Picture1.Top = Picture1.Top + (Y - Picture1.Height / 2)
 
    Form1.Line (Picture1.Left + (Picture1.Width / 2), Picture1.Top + ( _
      Picture1.Height / 2))-(Picture2.Left + (Picture2.Width / 2), Picture2.Top _
      + (Picture2.Height / 2))
 
End If
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
If Button = vbLeftButton Then
    Form1.Cls
    Picture2.Left = Picture2.Left + (X - Picture2.Width / 2)
    Picture2.Top = Picture2.Top + (Y - Picture2.Height / 2)
 
    Form1.Line (Picture1.Left + (Picture1.Width / 2), Picture1.Top + ( _
      Picture1.Height / 2))-(Picture2.Left + (Picture2.Width / 2), Picture2.Top _
      + (Picture2.Height / 2))
 
End If
End Sub