求下图vb代码，在线等~~~

举个例子吧，要在设计时，设置 List1.MultiSelect = 2

Dim i As Integer

List1.AddItem "烤鱼"
List1.AddItem "白菜"
List1.AddItem "芹菜"
List1.AddItem "豆腐"

Text1 = ""

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
Text1.Text = Text1.Text & List1.List(i) & ";"
End If
Next

翠汁鸡豆花汤