在 資 源 管 理 器 中 的 圖 標 拖 動 和 VB中 差 不 多 ， 但 要 復 雜 一 些 ， 這 個 程 序 僅 供 參 考 。 
    1、 新 建 一 工 程 。 在 窗 口 加 入 PICTURE1和 PICTURE2。 PICTURE1大 些 ， PICTURE2小 些 。 
    2、 將 文 本 文 件 中 的 程 序 拷 貝 到 代 碼 窗 口 中 。 更 改 FORM_LOAD中 的 WINDOWS路 徑 及 圖 標 名 稱 。 
    3、 執 行 程 序 。 拖 動 PICTURE1到 PICTURE2中 。 
    相 信 會 有 幫 助 。 
    Private Sub Form_Load() 
     Picture1.Picture = LoadPicture("c:\win98\forest.bmp") 
     Picture1.DragIcon = LoadPicture("c:\win98\winupd.ico") 
    End Sub 
     
    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Picture1.Drag 1 
    End Sub 
     
    Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Picture1.Drag 0 
    End Sub 
     
    Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single) 
     If TypeOf Source Is Picture Then 
     Picture2.Picture = Source.Picture 
     End If 
    End Sub 
<END>