dropCtrl As control not working

[racemadnss]

I am working on this drag and Drop Procedure http://support.microsoft.com/default.aspx?scid=kb;en-us;233274

It says to put this on the mouseOver procedure

Private Sub List1_MouseMove (Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
   DropDetect Me, Me![List1], Button, Shift, X, Y
End Sub

So I made it work for me and put this

Private Sub lstMonday2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

DropDetect Me, Me![lstMonday2], Button, Shift, X, Y
End Sub

But it gives me the ByRef argument type mismatch

So I Debug it and It shows the DropCtrl as NULL

how do you get it to pick up what control you are over?
Thanks in advance


btw:

DropDetect(DropFrm As Form, [B]DropCtrl As Control[/B], _
              Button As Integer, Shift As Integer, _
              X As Single, Y As Single)

 

[racemadnss]

Anyone ever used the drag and drop control?

 

[racemadnss]

Ok I fixed it, I just scrapped the whole As control Idea and did As String, and put the Name of the listbox in the string.