VB中怎么实现鼠标点击from后拖动显示特殊图片？

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
-------------------------------------->

---

1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"

---

Picture1.OLEDragMode=Manual

---

DragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。

---

能写上代码么？我是个新手！谢谢！

---

第一个问题就是画出一条直线 而直线是被图片代替的！

---

画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "----------->"
End Sub

---

注：带箭头的直线和任意线是鼠标随意拖动画出来的

---

下个CAD控件。

---

利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single