matID(lFormat)
         lstFormats.AddItem CStr(lID) &amp; vbTab &amp; .GetCurrentFormatName(lFormat)
         lstFormats.ItemData(lstFormats.NewIndex) = lID
         If (lID = 1) Then ' Text
            lstFormats.ListIndex = lstFormats.NewIndex
         End If
      Next lFormat
      
   End With
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr