Problema con ShowFont

[rafapaskual]

Hola!

Estoy haciendo una aplicación con Visual Basic 6.0 que tengo instalado en un W2K. Tengo un problema cuando intento mostrar un dialogo de fuente del control CommonDialog 6.0 (SP3), éste me genera un error y me dice que no hay fuentes instaladas, que pruebe a instalarlas desde el panel de control, pero esto no es cierto, en la carpeta Fuentes del panel de control estan todas muy bien puestecitas!!! No se si se deberá a algun problema de mi W2k o si es un problema que pase siempre, alguien me puede ayudar??

Os pongo el código por si me he dejado algo al usar el control!

Private Sub VCABECERA_DblClick(Index As Integer)
With Dialog
.Flags = cdlCFEffects
.Color = VCABECERA(Index).ForeColor
.FontBold = VCABECERA(Index).FontBold
.FontItalic = VCABECERA(Index).FontItalic
.FontStrikethru = VCABECERA(Index).FontStrikethru
.FontUnderline = VCABECERA(Index).FontUnderline
.FontName = VCABECERA(Index).FontName
.FontSize = VCABECERA(Index).FontSize .ShowFont
End With
End Sub

Gracias por vuestro tiempo!

Saludos!