求做个VB小程序

我是未来的你，你现在是不是在年找寻小程序答案。你不要感觉诧异，给你来信原因，就是让你不在后悔。今天去学习如何推广小程序，相信......点击查看更多>

亲自给你做的，实现了你要的功能：列表框的添加、删除、修改。
计时器的应用，图像框的应用。根据计时器的值，每两秒换一副图片。
图片位置自己修改。

在一个FORM上添加三个按钮，一个timmer，一个image ，两个Label

代码如下：
Dim i_index As Integer

Private Sub Form_Load()
List1.AddItem "你要的例子"
List1.AddItem "第二项"
List1.AddItem "第三项"
List1.AddItem "第四项"
List1.AddItem "最后一项"
i_index = 0
End Sub

Private Sub Command1_Click()
If Text1.Text <> "" Then
List1.AddItem (Text1.Text) '将文本框中的内容加到列表框中
Text1.Text = ""
Else

MsgBox "请在文本框中输入信息！"
End If

End Sub

Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)

'删除选定的项目
End Sub

Private Sub Command3_Click() '修改
If Command3.Caption = "修改" Then
Text1.Text = List1.List(List1.ListIndex)

Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = "修改确认"
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = ""
Command3.Caption = "修改"
End If
End Sub

Private Sub Timer1_Timer()
'定时器
If i_index >= 4 Then
i_index = 0
Else
i_index = i_index + 1
End If

If i_index = 1 Then
Image1.Picture = LoadPicture("D:\My Documents\美图图库\示例图片_01.jpg")
ElseIf i_index = 2 Then
Image1.Picture = LoadPicture("D:\My Documents\美图图库\示例图片_02.jpg")
ElseIf i_index = 3 Then
Image1.Picture = LoadPicture("D:\My Documents\美图图库\示例图片_03.jpg")
End If

End Sub

……这好像大把啊！而且自己随便就能做一个啊~~~花这冤枉分……

怎么个应用法？问题描述太不详细了啊？

图像框的应用。根据计时器的值，每两秒换一副图片