暖手宝生产设备:问个有关VB的问题（我是只菜鸟）我该怎么改啊 请大家指教

双击后调用good_DblClick，这个又调用ownercom_Click，再ownercom_Click中Select Case 语句少end Select ，所以应该改为
Private Sub ownercom_Click()
Select Case good.ListIndex
Case 0
wonto.Text = "wang"
Case 1
wonto.Text = "ling"
Case 2
wonto.Text = "zao"
Case 3
wonto.Text = "qian"
Case 4
wonto.Text = "sun"
Case 5
wonto.Text = "li"
Case 6
wonto.Text = "zhang"
End Select'这里
End Sub

Private Sub ownercom_Click()
Select Case good.ListIndex
Case 0
wonto.Text = "wang"
Case 1
wonto.Text = "ling"
Case 2
wonto.Text = "zao"
Case 3
wonto.Text = "qian"
Case 4
wonto.Text = "sun"
Case 5
wonto.Text = "li"
Case 6
wonto.Text = "zhang"
'++++++++++++++++++++++++++++
end select
'++++++++++++++++++++++++++++
End Sub

Private Sub Form_Load()
good.AddItem "pen"
good.AddItem "apple"
good.AddItem "pencle"
good.AddItem "desk"
good.AddItem "computer"
good.AddItem "mic"
good.AddItem "ball"
End Sub

Private Sub good_DblClick()
ownercom_Click
End Sub

Private Sub ownercom_Click()
Select Case good.ListIndex
Case 0
wonto.Text = "wang"
Case 1
wonto.Text = "ling"
Case 2
wonto.Text = "zao"
Case 3
wonto.Text = "qian"
Case 4
wonto.Text = "sun"
Case 5
wonto.Text = "li"
Case 6
wonto.Text = "zhang"
End Select'缺少循环结束语句
End Sub