あるテキストを見て、ドラッグアンドドロップを試みたのですが、"実行時エラー"で"380;
プロパティの値が不正です"とのエラーが出てきました。コードは下記のとおりです。

(General)-(Declarations)
Dim dx As Single, dy As Single

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move X - dx, Y - dy
End Sub

Private Sub Form_Load()
    For i = 0 To 2
        Img(i).DragIcon = Img(i).Picture   ←デバックでは、ここでエラー！！！
    Next i
End Sub

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
    Image1.Picture = Source.Picture
End Sub

Private Sub Img_MouseDown(Index As Integer, Button As Integer, Shift As Integer,
                          X As Single, Y As Single)
    Img(Index).Drag 1
    dx = X: dy = Y
End Sub

> あるテキストを見て、ドラッグアンドドロップを試みたのですが、"実行時エラー"で"380;
>         Img(i).DragIcon = Img(i).Picture   ←デバックでは、ここでエラー！！！

Img(i).Picture にアイコンファイル以外を入れていませんか？
一度削除するか　拡張子が　ICO のファイルに変えて試して見て下さい。

花ちゃんさんへ
回答頂き有難うございます(^0^)/
しかし、下記の様に、拡張子を".ico"としましたが、うまくいきません。（四角い形になりました。）
もともとbitmapのファイルで、拡張子のみを変更したものです。
ちなみにアイコンファイルの作り方ってあるのですか？
もしあれば、教えて頂きたいのですが・・・。
宜しくお願い致しますペコリ。


> Img(i).Picture にアイコンファイル以外を入れていませんか？
> 一度削除するか　拡張子が　ICO のファイルに変えて試して見て下さい。

> しかし、下記の様に、拡張子を".ico"としましたが、うまくいきません。（四角い形になりました。）
> もともとbitmapのファイルで、拡張子のみを変更したものです。

どのようなファイルでもそうですが、拡張子を変えたからといってそのファイルその物が
変わるわけではありません。アイコンファイルを使って下さい。

> ちなみにアイコンファイルの作り方ってあるのですか？
> もしあれば、教えて頂きたいのですが・・・。

以前はVB等に付属していたのですが、フリーソフト等でアイコンエデイタがあります。
それを使って作成して下さい。

花ちゃんさんへ
アイコンエディタですね。
わかりました。試してみます!
親切なご説明頂き有難うございました。(^0^)/

> 以前はVB等に付属していたのですが、フリーソフト等でアイコンエデイタがあります。
> それを使って作成して下さい。

  花ちゃんさんへ
  再び質問です。
　下記のとうりにフリーソフトでアイコンエディタを使って試してみましたが、やはり同じエラーが
出てしまいます。
　それと、言い忘れていた事があって、それは、アイコンを、自分の好きな画像にしたかった、
というものです。自分の好きな画像を、フリーソフトを使って".ico"にする事までは出来たのですが、
プログラムのImg(0)〜(2)のプロパティの"Picture"の所は"(ビットマップ)"という表示しか出ません。
又、DragIconの所も、入力しても、"(なし)"としか表示されません。
　もう一度、教えて頂けないでしょうか？
　

> 以前はVB等に付属していたのですが、フリーソフト等でアイコンエデイタがあります。
> それを使って作成して下さい。

テキストを見ながらやっておられるならテキスト通り一度コードを書いて
試して下さい。
その上でコードを理解しながら改造して下さい。
テキストに有る程度解説してあると思うのですが！
解らない部分はヘルプ等で調べて下さい。
アイコンファイルしか表示できないところへアイコンファイル以外を指定してもエラーが
でます。

Img(i).DragIcon = Img(i).Picture   この部分は変更されたのですか？
まずはひとつづつ解決していって下さい。
質問内容も整理して質問するようにしてください。
ご自分のやりたい事。解らない事等を箇条書きにでもして整理して下さい。

下記の部分を変更して見て下さい。

Private Sub Form_Load()
    Dim i As Long
    For i = 0 To 2
        'こちらはアイコンファイルを指定して下さい(*.ICO)
        'コメントアウトにしても動作します
        Img(i).DragIcon = LoadPicture("c:\bitmap\Face02.ico")
    Next i
    'こちらは表示するファイル(*.bmp/ *.JPG/ *.GIF 等)
    Img(0).Picture = LoadPicture("c:\bitmap\yuki.jpg")
    Img(1).Picture = LoadPicture("c:\bitmap\irasutoken.gif")
    Img(2).Picture = LoadPicture("c:\bitmap\inu.bmp")
End Sub

> ご回答有難うございました。