Making a "stopLight"

I need to make a stoplight for a school project. It doesn't need to work. Its simply 3 circles in a box.

I've got the "lights", but I can't figure out how to put a box around it. I need some help. Thanks.

Private Sub mnuLight_Click()

ForeColor = vbBlack
FillStyle = vbFSSolid
FillColor = vbRed
Circle (ScaleWidth / 4, ScaleHeight / 3.3), 400

ForeColor = vbBlack
FillStyle = vbFSSolid
FillColor = vbYellow
Circle (ScaleWidth / 4, ScaleHeight / 2.5), 400

ForeColor = vbBlack
FillStyle = vbFSSolid
FillColor = vbGreen
Circle (ScaleWidth / 4, ScaleHeight / 2), 400

End Sub

Draw the Box first.
Line(x1,y1)-(x2,y2),Color, BF

Use B to draw an outline Box, BF to draw a Filled Box