Code:
Randomize
Num = Int(Rnd * Screen.FontCount)
Me.FontName = Screen.Fonts(Num)