MouseUp example for Visual Basic

Private Sub LEADImgList1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   Dim nItem As Long
   
   nItem = LEADImgList1.HitTest(x, y)
   
   If (nItem >= 0) Then
      LEADImgList1.SelectionColor = RGB(0, 0, 255)
      LEADImgList1.Item (nItem).Selected = True
   End If
End Sub