Sub Timer1_Timer ()
    FontViewer.Show
    Unload Intro
End Sub

Sub Form_Load ()
    ' Initialize form position
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2
    
    FontViewer.Hide
End Sub