Have u tried:
VB Code:
  1. List1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)