Dim w() As String = {"Real", "Common", "NewWorld", "Else"}
Dim a As New Drawing.Bitmap(100, 50)
Dim g As Graphics = Graphics.FromImage(a)
Dim f As New Font("Tahoma", 12, FontStyle.Bold)
Dim b As Drawing.Brush = Brushes.Black
Dim word As String
Dim i As Int32
i = Int(Rnd() * (w.Length - 1))
word = w(i)
g.DrawString(word, f, b, 10, 10)
Response.ContentType = "image/gif"
g.Save(Response.OutputStream, Imaging.ImageFormat.Gif)
Response.Flush()