Random with fonts

[Matt-D]

What's the code for a FontName random ?
To change the font of a textbox (Text1)!

Note: I use (stil) VB 3.0

Thanks for some help, Matt-D(eutschland)