Draw horizontal line in Power point with VBA

Sub myline(x1, x2, l)
    Dim i As Integer
    Dim shp As Shape
    Dim sld As Slide

    Set sld = Application.ActiveWindow.View.Slide
    Set shp = sld.Shapes.AddShape(37, x1, 10 * l, x2 - x1, 0)
    shp.Fill.ForeColor.RGB = RGB(137, 143, 75)
    shp.Fill.BackColor.RGB = RGB(137, 143, 75)
    shp.ShapeStyle = 10002
    
End Sub

AddShape(37, ...) --> arrow shape
AddLine --> real line shape