Private Sub Command2_Click(Index As Integer)
For i =  1  To  6 
t = t +  500 
Load Image3(i)
Image3(i).Visible = True
Next i
End Sub

Option Explicit

Dim t As Long 
Dim downX, downY, i

Private Sub Command1_Click()
Form3.Hide
pForm3.Show
End Sub


Private Sub Command2_Click(Index As Integer)
For i =  1  To  6 
t = t +  500 
Load Image3(i)
Image3(i).Visible = True
Next i
End Sub




Private Sub Image3_MouseDown(Index As Integer, Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
downX = X
downY = Y
End Sub
Private Sub Image3_MouseMove(Index As Integer, Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
For i =  1  To  6 
If Button =  1  Then
  Image3( 0 ).Left = Image3( 0 ).Left + X - downX
  Image3( 0 ).Top = Image3( 0 ).Top + Y - downY
End If
Next
End Sub

Private Sub Image1_MouseDown(Index As Integer, Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
downX = X
downY = Y
End Sub

Private Sub Image1_MouseMove(Index As Integer, Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
For i =  1  To  6 
If Button =  1  Then
  Image1(i).Left = Image1(i).Left + X - downX 'Вот эта строка выделяется желтым
  Image1(i).Top = Image1(i).Top + Y - downY
End If
Next
End Sub