RRSDK.Execute ("CLSETIMG;" & ArtNum & ";" & App.Path & "\Cache\" & ArtNum & ".bmp")

frm.CL.?? ArtNum + Chr(10) + App.Path & "\Cache\" & ArtNum & ".bmp"

'Files/Directory Control
Public FileTypes As String      'File Types to ACCEPT
Public ShowDirs As Boolean      'Show Directories ?
Public ShowIcons As Boolean     'Show Icons ?
Public Fname As String          'Name of Font to Use
Public FSize As String          'Font Size To use
Public SelRGB As Long           'Selection ForeColor
Public SelBackRGB As Long       'Selection BackColor
Public DirRGB As Long           'Directory ForeColor
Public FileRGB As Long          'Files ForeColor
Public DirCount As Long         'Directories Count
Public Charset As Integer       'Charset for fonts
Public Transparency As Boolean  'set this to true if you want to use the SEL BAR to be transparent (no color)
Public Source As Integer        'File=0, ML=1, Ipod=2
Public UpText As String         'Text before entering LAST goin

'Display Options
Public Alignment As Integer     'Alignemt of Labels
Public DisplayMode As Integer   'Display Mode (0=Normal, 1=ThumbList, 2=Album Icons, 3=iList)
Public IconHeight As Long       'Icon Height
Public IconWidth As Long        'Icon Width
Public ShowExt As Integer       'Show Extensions ? (-1=Default, 0=No, 1=Yes)

'iList info
Public SelBMP As String                 'Selection BMP filename
Public UnSelBMP As String               'Unselection BMP filename
Public EndBMP As String                 'End Marker BMP filename
Public BackRGB As Long                  'BackSurface Fill Color
Public LineColor As Long                'Separator Line Color (For TextMode)
Public UseLimit As Integer              'Limit Scroll ? (0=Free Roll, 1=Limited, 2=Sticky)
Public MaxSpeed As Long                 'Maximum Speed
Public DragForce As Double              'Drag Force

'Functions/Subs
---------------

'Returns Max value/number of items
Public Property Get Max() As Long
'Returns Current value/selected item
Public Property Get Value() As Long
'Sets the current value (selected item)
Public Property Let Value(ByVal Value As Long)
'Returns the number of lines viewable at once in the list
Public Property Get Lines() As Long
'Returns text of current selected item of the list
Public Property Get Text() As String
'Add item
Public Sub AddItem(item As String, Optional itemType As String = "LST")
'Remove Item
Public Sub RemoveItem(item As Long)
'Clear Items (Max defines the new max of the list -- reduces the list)
Public Sub Clear(Optional Max As Long = -1)
'Update list display and center current selection
Public Sub CenterList()
'Set current path -- if showing directories
Public Property Let Path(Val As String)
'Get current path -- if showing directories
Public Property Get Path() As String
'Get Item
Public Function GetItem(ByVal N As Long, Optional StripNumber As Boolean = False) As String
'Get description of item
Public Function GetDesc(ByVal N As Long) As String
'Check if item has description
Public Function HasDesc(ByVal N As Long) As Boolean
'Get the type of item
Public Function GetType(ByVal N As Long) As String
'Set Item
Public Sub SetItem(ByVal N As Long, ByVal item As String, Optional ByVal Typ As String = "LST")
'Returns the index of first item displayed
Public Property Get TopLine() As Long
'Custom Images support (Set)
Public Sub SetImg(N As Long, ImgPath As String)
'Custom Images support (Get)
Public Function GetIMG(N As Long) As String
'Go in folder -- if showing directories, returns true if successful
Public Function GoIn() As Boolean
'Go out of current folder -- if showing directories, returns true if successful
Public Function GoOut() As Boolean
'Return current list (Same as available in Flash)
Public Function GetList() As String
'Save Current List
Public Sub SaveList(Fname As String)
'Load Previously Saved List
Public Sub LoadList(Fname As String, Optional Plain As Boolean = False)