VB中含有两种绘图控件：
uLine控件
使用Line控件可以绘制直线。注意，绘制的图形主要为其他控件做修饰用，不能用来触发事件。
其主要属性包括：
BorderStyle——用于设置线型
=0 透明 =4 点划线
=1 实线 =5 双点划线
=2 长划线 =6 内实线
=3 点线
BorderWidth——用于设置线宽，默认值为１，其值越大，直线越粗。
BorderColor——用于设置线的颜色。
x1——直线起点的X坐标。
x2——直线终点的X坐标。
y1——直线起点的Y坐标。
y2——直线终点的Y坐标
vShape 控件
Shape控件可用于在窗体上绘制矩形、圆、椭圆等一系列图形，创建控件的方式与直线控件一致。
其主要属性包括：
Shape属性——绘制的形状
=0 矩形 =3 圆
=1 正方形 =4 圆角矩形
=2 椭圆 =5 圆角正方形
例题2：制作红绿灯
Private Sub Form_Load()
Image1.Picture= LoadPicture("c:\red.bmp")
Image2.Picture = LoadPicture("c:\yellow.bmp")
Image3.Picture = LoadPicture("c:\green.bmp")
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
End Sub
Private Sub Image1_Click()
Image1.Visible= False
Image2.Visible = True
End Sub
Private Sub Image2_Click()
Image2.Visible= False
Image3.Visible = True
End Sub
Private Sub Image3_Click()
Image3.Visible= False
Image1.Visible = True
End Sub