求VB高手帮写一个程序，有源代码,很短很简单的一个程序

2．2、源代码
内容：工程由Forml和modluel构成。
FORM1中的内容如下：
Comst bmpfilemax=11 照片数目常量
Const bmpfile(bmpfilemax)As String照片的文件组
Dim brawbmpmode(bmpfilemax)As in-teger 照片的切换方式
Dim bmpnum,mouvstep,xmax,ymax,endmax,lleft,r,n ,As Integer 照片的序号，步进参数
Dim kxy As Single x y方向的比例
Private Sub Exit_Click( )
End
Ene Sub
Private Sub Form_Load( )
Labell.Lert=0
Labell.Caption="Family Album"
Picturel.AutoSize=True
Picturel,Visible=False
Bmpfile(0)=App,path+" \ sonl.jpg"
Bmpfile(1)=App.Path+" \ mom_sonl.jpg"
Bmpfile(2)=App.Path+" \daddy_son.jpg"
Bmpfile(3)=App.path+" \yu99yantai.jpg"
Bmpfile(4)=App.Path+" \yu98singap2.jpg"
Bmpfile(5)=App.Path+" \yu98singapore.jpg"
Bmpfile(6)=App.Path+" \mom_son2.jpg"
Bmpfile(7)=App.Path+" \yu99yan2.jpg"
Bmpfile(8)=App.Path+" \fami_ly.jpg&

求高手帮忙写一个简单的vb程序 求高手帮我编一个vb程序 谁帮我写一个VB程序 跪求VB高手速救..我要用VB写一个二维数组程序.. 求高手写一个程序 一个VB小程序，求高手修改~ 麻烦哥哥姐姐们,帮我写一个VB求素数的程序 求一个VB高手帮我调试一个小程序，快 在线等 高手帮我写个VB小程序！ 求找VB高手帮我做一个简单的加乘除的小程序。感激不尽