Code: Select all
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set ListView1.SelectedItem = ListView1.HitTest(x, y)
' In the following line any ICO file will do
ListView1.DragIcon = LoadPicture(AppPath & "HelloSir.ICO")
ListView1.Drag vbBeginDrag
End Sub
i need to maintain the same dimension, in other case, show a little cursor