Making a "stopLight"

Dean10007
04-04-2005, 12:23 PM
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

passel
04-04-2005, 12:38 PM
Draw the Box first.
Line(x1,y1)-(x2,y2),Color, BF

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

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum