我想用vb写个小程序有这样的功能:一个picture控件显示图片，由一个combo下拉有三条选项，

Private Sub Form_Load()

Combo1.ListIndex = 0

Option1.Value = True

End Sub

Private Sub Option1_Click()

Select Case Combo1.ListIndex

Case 0

    Picture1.Picture = LoadPicture("e:\tmp\cd1.gif")

Case 1

    Picture1.Picture = LoadPicture("e:\tmp\cd2.gif")

Case 2

    Picture1.Picture = LoadPicture("e:\tmp\cd3.gif")

End Select

End Sub

Private Sub Option2_Click()

Select Case Combo1.ListIndex

Case 0

    Picture1.Picture = LoadPicture("e:\tmp\cd4.gif")

Case 1

    Picture1.Picture = LoadPicture("e:\tmp\cd5.gif")

Case 2

    Picture1.Picture = LoadPicture("e:\tmp\cd6.gif")

End Select

End Sub

Private Sub Combo1_Click()

If Option1.Value Then

    Option1_Click

Else

    Option2_Click

End If

End Sub

经测试代码无问题

Picture控件 和Timer 控件各一个，其中Picture控件用来加载图片

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Static n As Integer

If n = 10 Then End

n = n + 1

End Sub

---