MouseDown example for Visual Basic

Private Sub LEADImgList1_MouseDown(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(255, 0, 0)
      LEADImgList1.Item (nItem).Selected = True
   End If
End Sub