    If (Forms(i) Is Me.ActiveForm) Then
'                        bCheck = True
'                     Else
'                        bCheck = False
'                     End If
'                     sKey = Forms(i).Name
'                     On Error Resume Next
'                     lIcon = ilsIcons.ListImages(sKey).Index - 1
'                     If (Err.Number &lt;&gt; 0) Then
'                        Err.Clear
'                        ilsIcons.ListImages.Add , Forms(i).Name, Forms(i).Icon
'               