Private Sub DrawLines(ByVal lngth As Single)
Dim objPen As Pen
Dim objPicGraphics As Graphics = Graphics.FromHwnd(hwnd:=PaintBox().Handle)
objPen = New Pen(Drawing.Color.Black, 1.5F)
objPen.DashStyle = Drawing2D.DashStyle.Solid
WidthLen = CInt((PaintBox.Width - leftPad - RightPad) / 8)
objPicGraphics.PageUnit = GraphicsUnit.Millimeter
objPen.LineJoin = Drawing.Drawing2D.LineJoin.Round
Dim angleRadians As Double = (Math.PI / 180.0) * angle
Dim a As New PointF(4, 100)
Dim b As New PointF(lngth, 100)
objPicGraphics.DrawLine(objPen, a, b)
End Sub