Private Sub Form_Load()
Me.List1.AddItem "Cazuela" & vbTab & "$2000.00"
Me.List1.AddItem "Arroz " & vbTab & "$3000.00"
Me.List1.AddItem "sancocho" & vbTab & "$550.00"
Me.List1.AddItem "Encebollado" & vbTab & "$2500.00"
Me.List1.AddItem "Guatita" & vbTab & "$3000.00"
End Sub
Private Sub List1_Click()
x = InStr(List1.List(List1.ListIndex), vbTab)
Text1.Text = Mid(List1.List(List1.ListIndex), 1, x - 1)
Text2.Text = Mid(List1.List(List1.ListIndex), x + 1, Len(List1.List(List1.ListIndex)) - x)
End Sub
Private Sub List1_ItemCheck(Item As Integer)
MsgBox List1.ItemData
End Sub