[rank]

語言是VB6.0

是這樣的,我想利用Microsoft Forms 2.0 Object Library元件中的ListBox來接收檔案的路徑(利用拖曳),可是卻發生這樣的問題.就是跑到以下這一行TextBox1.Text = Data.GetText就會發生錯誤,不知道該如何,才可以解決Data.GetText所發生的錯誤?

希望知道的人,能否協助一下,謝謝!

Option Explicit
 
Private Sub ListBox1_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)
   
    Cancel = True
    Effect = fmDropEffectMove
End Sub

Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
    ByVal Action As MSForms.fmAction, _
    ByVal Data As MSForms.DataObject, _
    ByVal X As Single, _
    ByVal Y As Single, _
    ByVal Effect As MSForms.ReturnEffect, _
    ByVal Shift As Integer)
 
    TextBox1.Text = Data.GetText
    Cancel = True
    Effect = fmDropEffectMove
    ListBox1.AddItem TextBox1.Text, 0
End Sub