      If Right$(sI, 2) &lt;&gt; sPf Then
                    iLen = Len(.Image) - 2
                    .Image = Left$(tvwOpt.Nodes(i).Image, iLen) &amp; sPf
                End If
            End If
        End With
    Next i
End Property

Private Function Postfix() As String
    Select Case m_eIconSet
    Case OptionTreeIconsWin98
        Postfix = "95"
    Case OptionTreeIcons3d
        Postfix = "3D"
    End Select
End Function

Public Property Get InternalImageList() As Object
Attribute InternalImageL