Dim Gpx, GPy As Integer
    Gpx = 24361
    GPy = 5966
 
    Dim Gleisplan As New Bitmap(GpX, GpY, PixelFormat.Format32bppArgb)
 
    Using g As Graphics = Graphics.FromImage(Gleisplan),
            pn As New System.Drawing.Pen(Color.Blue, 4)
        g.Clear(Color.Yellow)
        g.DrawLine(pn, 0, 0, 24000, 5500)
    End Using
    Gleisplan.Save("G:\downloads\gleisplan.png", _
      Drawing.Imaging.ImageFormat.Png)
 
    Gleisplan.Dispose()
    Gleisplan = Nothing