Yes it is possible. Use the Picture1.Line to draw the shape
Edit:Code:Private Sub DrawSquare() '~~> This will draw a square '~~> You can replace the hardcoded values '~~> with the textboxes values Picture1.Line (2500, 2200)-(3000, 2200), vbBlue Picture1.Line (3000, 2200)-(3000, 1800), vbBlue Picture1.Line (3000, 1800)-(2500, 1800), vbBlue Picture1.Line (2500, 1800)-(2500, 2200), vbBlue End Sub
Similarly to draw a circle, you can use
Code:Picture1.Circle (2050, 2200), 1000





Reply With Quote