To fill the circle, you need to set the fillstyle of the form to vbSolid.