それともう一つお願いします。
FinderからファイルをEditFieldにD&Dしたときに、なぜか(*1)の部分が
Falseになっているようで、EditField1.Text内に、ファイルからのTextを入れることができません。


//--------------------------------------EditField1内のOpenイベント
Sub Open()

Me.AcceptFileDrop("????")

End Sub

//--------------------------------------EditField1内のDropObjectイベント
Sub DropObject(obj As DragItem)

Dim r As TextInputStream

If obj.FolderItemAvailable Then //<---(*1)
r=obj.FolderItem.OpenAsTextFile
EditField1.Text=r.ReadAll
r.Close
End If

End Sub
//--------------------------------------