ピクチャボックスに表示されている背景が透明な画像をパワーポインタにドラッグするには？

yamabato 2007-03-27 13:45:35 No: 135889

はじめまして、超初心者です。

環境はXPのVB6.0です
ピクチャボックスに表示されている背景が透明なｇｉｆ画像
をパワーポインタにドラッグ&ドロップしたいのですが
背景が透けずに灰色になってしまいます。下の様なプログラム
を作って見たのですが、透明なままドラッグできないでしょうか?
ご教授おねがいします。

Dim FileName as string

Private Sub Form_Load()
FileName = "D:\Clip01.gif"
Picture1.Picture = LoadPicture(FileName)
End Sub

Private Sub Picture1_MouseDown(〜省略〜)
Picture1.OLEDrag
End Sub

Private Sub Picture1_OLEStartDrag(〜省略〜)
    Data.Files.Add FileName
    Data.SetData , vbCFFiles
    AllowedEffects = vbDropEffectCopy
End Sub