Sub Grafik_aufbauen()
 
        Try
            Dim Image_Laufschrift, newPicture As Image
            Dim Position As Point
            Dim temptext As String
 
            temptext = "Newsticker +++ " & strLauftext
 
            Dim Schriftart As Font = New System.Drawing.Font("Times New Roman", _
              16.0!, System.Drawing.FontStyle.Bold, _
              System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Dim Brush As New SolidBrush(Color.LightGray)
 
            Image_Laufschrift = Bitmap.FromFile(Application.StartupPath & _
              "\GrafikBanner.jpg")
 
            newPicture = New Bitmap(560, 60)
 
            Dim size As SizeF = TextRenderer.MeasureText(temptext, Schriftart)
 
            Dim intcount As Integer = size.Width + 560
 
            For i As Integer = 1 To intcount
                graphic = Graphics.FromImage(newPicture)
                graphic.DrawImage(Image_Laufschrift, New Rectangle(0, 0, _
                  Image_Laufschrift.Width, Image_Laufschrift.Height))
                Position = New Point(560 - i, 18)
                graphic.DrawString(temptext, Schriftart, Brush, Position.X, _
                  Position.Y)
                Picbox1.Image = newPicture
                Threading.Thread.Sleep(int_Speed_Ticker)
            Next
 
            graphic.Dispose()
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
 
End Sub