vb中如何对图像框数组实现单个图像框的拖动与单击事件

Question

vb中如何对图像框数组实现单个图像框的拖动与单击事件
如何通过事件得到图像框的名字从而实现对其位置属性进行改变

Answer 1

建立image的数组控件，然后根据index来操作操作过程
1，托动一个image到form里面
2 copy,paste这个，在提示的时候选择建立数组控件

Answer 2

比如Image（1）对这个进行拖动怎么操作啊
操作的时候名字不是不能带括号么，怎么解决啊

Answer 3

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
i = Source.Index
Image1(i).Move X, Y
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
End SubPrivate Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1(Index).Drag
End Sub