On second thoughts, try this...
Code:
Sub ListContacts_SelectionChanged (Index, Value)
ListNumbers.Clear
Contact.Value = PimCol.GetItem(Value)
ListNumbers.Add (ListContacts.SelectedIndex & "/" & Contact.LastName & "/" & Contact.MobileTelephoneNumber)
ListNumbers.Refresh
End Sub
In place of your ListBox 2 code.
Regards,
RandomCoder
__________________
Desktop: Pentium D 920 (2.8GHz, 4MB L2 Cache, 800MHz FSB), 1024MB, 256MB Radeon X600, 250GB HD.
Device : Axim X51v XScale 624MHz, 3.7" VGA, 64MB SDRAM, 256MB Flash ROM + 1Gb SD.
"Defeat never comes to any man until he admits it."Josephus Daniels
|