Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_Load()
With ListView1
.ListItems.Add , , "Item1"
.ListItems.Add , , "Item2"
.ListItems.Add , , "Item3"
End With
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
ReleaseCapture
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024