sorry for the inconvenience but I changed the code to:
Dim L1 As System.Drawing.Graphics
L1 = Me.CreateGraphics
'Use a red pen color to draw a line
Dim PenColor AsNew System.Drawing.Pen(System.Drawing.Color.Black, 10)
L1.DrawLine(PenColor, ActposX, ActposY - 10, ActposX + 30, ActposY - 10)
i...