I have a VBA form which has a listbox. When dragging a file, folder or
computer from Explorer to the list box, in the BeforeDragOver event
handler, calling GetFormat on the DataObject always returns false.
What am I doing wrong? My code follows. It is just trying to determine
what format values different DataObjects supoort.

Thanks in advance for any help.

-John

Private Sub lstMachines_BeforeDragOver(ByVal Cancel As
MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As
Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState,
ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Dim bRes As Boolean
Dim i As Long
For i = -32767 To 32767
bRes = Data.GetFormat(i)
If (bRes) Then
MsgBox "Format " & i
End If
Next i
End Sub

The MSForms.DataObject only supports text, according to "What is the
difference between the DataObject and the Clipboard" in help.

Regards,
Peter T

"John Shell" wrote in message
...
I have a VBA form which has a listbox. When dragging a file, folder or
computer from Explorer to the list box, in the BeforeDragOver event
handler, calling GetFormat on the DataObject always returns false.
What am I doing wrong? My code follows. It is just trying to determine
what format values different DataObjects supoort.

Thanks in advance for any help.

-John

Private Sub lstMachines_BeforeDragOver(ByVal Cancel As
MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As
Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState,
ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Dim bRes As Boolean
Dim i As Long
For i = -32767 To 32767
bRes = Data.GetFormat(i)
If (bRes) Then
MsgBox "Format " & i
End If
Next i
End Sub

Thanks, Peter.

-John

On Fri, 1 Sep 2006 20:59:10 +0100, "Peter T" <peter_t@discussions
wrote:

The MSForms.DataObject only supports text, according to "What is the
difference between the DataObject and the Clipboard" in help.

Regards,
Peter T