Private tmpText As String
Sub DrawString(ByVAl Text As String)
tmpText = Text
End Sub
Private Sub Timerbla_Tick(sender As Object,e As System.EventArgs)Handles _
  Timerbla.Tick
         Dim img As New System.Drawing.Bitmap(160, 43)
        Dim screen As Drawing.Graphics = Graphics.FromImage(img)
 screen.DrawString(tmpText, New Font("arial", 11, FontStyle.Bold, _
   GraphicsUnit.Pixel), Brushes.White, 0, 0)
End Sub