Rounded Rectangle or Square

I need a Function To create a Rectangle or Square that has Rounded Edges, I want to be able to draw it to an object eg the Printer Object. I want to be able to Fill the Object with a RGB color So Some thing like this : Public Function DrawBox(txtObject As Object, x1 As Single, y1 As Single, x2 As Single, y2 As Single, Shape As ShapeConstants, Color As Long, FillColour As Long) End Function But up to you, as long it works i'll be happy. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. ## Platform VB 6.0