Sub DrawLine(Canv As Canvas,X As Float,Y As Float,X1 As Float,Y1 As Float, color As Int, StrokeWidth As Float)
Dim Paint,CanvJO As JavaObject
CanvJO = Canv
CanvJO = CanvJO.GetField("canvas")
Paint.InitializeNewInstance("android.graphics.Paint",Null)
Paint.RunMethod("setStrokeWidth",Array(StrokeWidth))
Paint.RunMethod("setAntiAlias",Array(True))
Paint.RunMethod("setStrokeCap",Array("ROUND")) 'BUTT, ROUND, SQUARE
Paint.RunMethod("setColor",Array(color))
CanvJO.RunMethod("drawLine",Array As Object(X,Y,X1,Y1,Paint))
End Sub