窗体上有三个image控件，分别显示三张图片，请问怎样能够通过拖放，随意改变显示顺序(互换图片顺序)？？

各位帮帮忙！！！

怎么没人帮帮忙呀！！设置OLEDragModem 和 OLEDropModem属性就可以拖动，但拖动后源图片就消失了，目标图片就被替换，还是没法实现互换图片。

Help!!!! 急！！

用
DragDrop
和
DragOver

DragMode 要= 1

添加4 个 image 控件
前3个设为控件数组
第四个作为交换暂存用（并设为不可见）
再用DragDrop

代码如下：
Private Sub Form_Load()
Image1(0).DragMode = 1
Image1(1).DragMode = 1
Image1(2).DragMode = 1
Image2.Visible = False
End Sub

Private Sub Image1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Dim sIndex As Integer
sIndex = Source.Index
Image2.Picture = Image1(Index).Picture
Image1(Index).Picture = Source.Picture
Image1(sIndex).Picture = Image2.Picture
End Sub

上面方法正确

用中间变量也行！

Private Sub Image1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
‘Dim sIndex As Integer
sIndex = Source.Index
Image2.Picture = Image1(Index).Picture
Image1(Index).Picture = Source.Picture
Source.Picture = Image2.Picture
End Sub

这样就好 干嘛还设个sIndex变量！

谢谢！！！可以结贴啦