From: dinnocenzo@hotmail.com   
      
   My application allows the user to select fonts.  I fill in a combo box   
   control with the available fonts by looping through all System.Fonts:   
      
      
     ' Get all the screen fonts   
     ReDim sFontNameList(Screen.FontCount - 1)   
     For i = 0 To Screen.FontCount - 1   
       sFontNameList(i) = Screen.Fonts(i)   
     Next i   
      
      
   Although I haven't checked all fonts, I know I'm missing one font in   
   particular -- Monotype Corsiva.   
      
      
   Some additional info:   
      
      
   My client runs the application on two machines -- both Windowx XP.  On   
   of the machines worked fine, the other did not.  When I troubleshot the   
   problem it boiled down to one machine not having Monotype Corsiva   
   installed (it did not have MS Office installed, which I believe is   
   where Monotype Corsiva comes from)   
      
      
   Happy with my discovery, I simply installed the font on the other   
   machine and it worked fine -- since I make Monotype Corsiva one of the   
   Default Fonts (I assumed it was a standard WIN XP Font -- my mistake).   
   Once I installed the font the program worked, however the Font was   
   still not showing up in my font selection combobox control.  It does   
   however show up in charmap so I know it's installed, but it doesn't   
   seem to show up in screen.fonts(i).   
      
      
   Any ideas?  By the way, I'm using VB 5.0(SP3) Enterprise Edition.   
      
      
   Thanks in advance,   
      
      
   -Bill   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)