Class ListBox

Property Parent() As JList

Property MultiSelect() As fmMultiSelect

Property Margin() As Long

Property MarginItem() As Long

Property FixedCellHeight() As Long

Property FixedCellWidth() As Long

Property BorderColorSel() As Long

Property BackColorSel() As Long

Property ForeColorSel() As Long

Property BorderStyle() As fmBorderStyle

Property ListCount() As Long

Property List(Index As Long) As String

Property ListData(Index As Long) As String

Property ListIcon(Index As Long) As IResource

Property Selected(Index As Long) As Boolean

Property ListIndex() As Integer

Property Style() As ListBoxConstants

Property Orientation() As lstOrientation

Property FontName() As String

Property FontBold() As Boolean

Property FontItalic() As Boolean

Property FontSize() As Integer

Property Font() As Font

Property BackColor() As Long

Property ForeColor() As Long

Property Width() As Single

Property Height() As Single

Property Left() As Single

Property Top() As Single

Property ToolTip() As String

Property Enabled() As Boolean

Property Visible() As Boolean

Property Tag() As String

Property MousePointer() As MousePointerConstants

Property MouseIcon() As IResource

Property CanGetFocus() As Boolean

Sub focusGained(arg2 As FocusEvent)

Sub focusLost(arg2 As FocusEvent)

Sub mouseMoved(e As MouseEvent)

Sub mouseDragged(e As MouseEvent)

Sub mousePressed(e As MouseEvent)

Sub mouseReleased(e As MouseEvent)

Sub mouseClicked(e As MouseEvent)

Sub mouseEntered(e As MouseEvent)

Sub mouseExited(e As MouseEvent)

Sub keyReleased(e As KeyEvent)

Sub keyTyped(e As KeyEvent)

Sub keyPressed(e As KeyEvent)

Sub valueChanged(arg2 As ListSelectionEvent)

Sub Clear()

Sub ensureIndexIsVisible(Index As Integer)

Function getFirstVisibleIndex() As Integer

Function getVisibleRowCount() As Integer

Function HitTest(x As Integer, y As Integer) As Integer

Sub AddItem(Item As String)

Sub AddItem(Item As ListCellData)

Sub AddItem(v As Usercontrol)

Sub AddItem(v As Usercontrol, Index As Integer)

Sub AddItem(Item As String, Index As Integer)

Sub AddItem(Item As ListCellData, Index As Integer)

Function IsCheckBox(Index As Long) As Boolean

Sub SetFocus()

Sub RefreshModel()

Sub Refresh()