實 際 上 ， 在 一 個 工 程 中 進 行 拖 放 和 在 一 個 窗 口 內 進 行 拖 放 并 沒 有 什 么 不 同 。 下 面 是 一 個 例 子 ： 
    1、 建 立 一 個 工 程 ， 添 加 兩 個 窗 體 ： Form1和 Form2。 
    2、 在 兩 個 Form上 各 放 一 個 ListBox控 件 。 
    3、 設 置 Form1的 List1的 DragMode屬 性 為 自 動 。 
    4、 在 Form1中 輸 入 代 碼 ： 
    Private Sub Form_Load() 
     Form2.Show 
     List1.AddItem "test" 
     List1.ListIndex = 0 
    End Sub 
    5、 在 Form2中 輸 入 如 下 代 碼 ： 
    Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single) 
     List1.AddItem Source.Text 
    End Sub 
    6、 運 行 程 序 ， 將 Form1中 的 List1拖 放 到 Form2的 List1上 。 
    如 果 要 在 不 同 的 工 程 中 拖 放 ， 就 需 要 使 用 OLEDragDrop等 屬 性 、 事 件 和 方 法 。 
<END>