Private Sub CreateBitmap()
 
 
        DeleteBitmap() 'Freigabe sicher stellen
 
        Dim Gpx, GPy, x1, y1, x2, y2 As Integer
        Gpx = 24361
        GPy = 5966
 
        Try
            Gleisplan = New Bitmap(Gpx, GPy,
             Imaging.PixelFormat.Format32bppArgb)
 
        Catch ex As Exception
            MsgBox("Bitmap kann nicht erstellt werden" & vbCrLf & ex.Message)
            DeleteBitmap()
            Exit Sub
        End Try
 
        pb.Image = Gleisplan
 
        Using g As Graphics = Graphics.FromImage(Gleisplan),
                pn As New System.Drawing.Pen(Color.Blue, 8)
            g.Clear(Color.Yellow)
            For i As Integer = 0 To 10
                x2 = x1
                y2 = y1
                x1 = CInt(rndm.NextDouble() * Gpx)
                y1 = CInt(rndm.NextDouble() * GPy)
                g.DrawLine(pn, x1, y1, x2, y2)
            Next i
        End Using
 
    End Sub