Sub ShowText(ByVal key As Integer, ByVal text As String, ByVal color As Brush)
    Dim bitmap As Bitmap = New Bitmap(96, 96)
    Dim graphics As Graphics = graphics.FromImage(bitmap)
    Dim font As New System.Drawing.Font("Arial", 40, FontStyle.Bold)
 
    ' Display the text with the DrawString method.
    graphics.DrawString(text, font, color, 10, 10)
 
    device.ShowImage(key, bitmap)
  End Sub