主要代码如下：
在通用的声明中书写代码: dim i as integer
Private Sub image1_Click() '若是图片控件，则为picture1_click End End Sub
Private Sub Timer1_Timer()
Picture1.Picture = LoadPicture(\ i=i+1
if i=10 then i=0 End Sub
(9)图片框(picturebox)-->可以用于显示图片,还可以显示文字,还可以放置图形.
设置对象(控件)的属性: 对象名.属性名=值 调用对象的方法: 对象名.方法名
当省略对象名时,默认为窗口.
如caption=”大家好” 就是将窗口的标题设置为大家好
cls-->表示清屏(清除窗口上显示的内容) picture1.cls(清除图片框中的内容) print 3
picture1.print 3 一.常用属性:
picture属性:指定图片框中显示的图片 autosize:自动大小.
当autosize为true时,表示图片框的大小随着图片的大小而改变.
align:图片框的位置.
1-->位于窗口的最上面,和窗口同宽 2-->位于窗口的最下面,和窗口同宽 3-->位于窗口的最左边,和窗口同高 4-->位于窗口的最右边,和窗口同高
例：设计一个如图所示的窗口，要求:当单击B时，则将文本框中的文字加粗.并且B按钮陷下去,状态栏上提示”已加粗!”,将再次单击时,则B按钮弹出,则时,文本框中的文字取消粗体显示.并且状态栏上提示:”未加粗” 依次类推
Private Sub Image1_Click()
If Image1.BorderStyle = 0 Then Image1.BorderStyle = 1 Text1.FontBold = True
Picture1.Cls
Picture1.Print \已加粗！\ Else
Image1.BorderStyle = 0 Text1.FontBold = False
Picture1.Cls
Picture1.Print \已取消加粗！\ End If
End Sub
(10)线条(line)-->用于美观
bordercolor:线条的颜色.
bordstyle:线条的样式.实线,点线或虚线等等. bordwidth:线的粗细.
x1,y1和x2,y2表示线条两个端点的坐标. (12)形状(shape)-->通常和线条一样,用于美观
shape:表示图形的形状.
0-->代表矩形,1-->代表正方形,2-->代表椭圆,3-->圆形,4-->代表圆角矩形,5-->圆角正方形
bordercolor:图形边框线条的颜色.
bordstyle:图形边框线条的样式.实线,点线或虚线等等. bordwidth:图形边框线的粗细. Left、Top、Height、Width
和线段控件不同，形状控件使用 Left、Top、Height、Width 这四个属性来设置图形相对窗体或其他容器控件的位置。 FillStyle和 FillColor 属性
用 FillStyle属性设置填充图形时的方式，有８种方式可供选择，如下表所示：
０ 实线 １ 透明（缺省值） ２ 水平直线 ３ 垂直直线
４ 上斜对角线 ５ 下斜对角线 ６ 十字线 ７ 交叉对角线
使用 FillColor 属性来设置填充闭合图形时使用的颜色。 (13)滚动条
滚动条用于表示连续变化的数量、音量、速度、时间、进度等信息。
滚动条有一个最大值和最小值，用户移动滑块可以在最大值和最小值之间指定一个数值，Visual Basic为用户提供了水平滚动条控件（HScrollBar）和垂直滚动条控件（VScrollBar）。 一、常用属性 ①、Name属性(名称)
②、上界属性（Max）和下界属性（Min）
Max属性用于返回或设置当滚动框处于底部或最右位置时，一个滚动条的最大设置值；
Min属性用来返回或设置当滚动框处于顶部或最左位置时，一个滚动条的最小设置值。 ③、数值属性（Value）
Value属性用来返回或设置滚动块当前位置的数值。 ④、大改变属性（LargeChange）和小改变属性（SmallChange） LargeChange属性用来设置用户单击滚动块和滚动箭头之间的区域时，滚动条控件的 Value 属性值的改变量。
SmallChange属性用来设置用户单击滚动箭头时，滚动条控件