Hi there,

I have a simple application to store address details and edit them. I have been away from VB for a few years now and need to refreash my knowledge while working to a tight deadline. I have a general Sub responsible for displaying a form where user can add contact details (by pressing button add) and edit them (by pressing button edit). This sub is stored in a class Contact. The way it is supposed to work is that there is a list with all the contacts and when new contact is added a new entry is displayed. If user wants to edit given entry he or she selects it and presses edit button

Public Sub Display()
        Dim C As New Contact
        C.Cont = InputBox("Enter a title for this contact.")
        C.Fname = frmAddCont.txtFName.Text
        C.Surname = frmAddCont.txtSName.Text
        C.Address = frmAddCont.txtAddress.Text
        frmStart.lstContact.Items.Add(C.Cont.ToString)
End Sub

I call it from the form responsible for adding new contacts by

Dim C As New Contact
        C.Display()

and it works just fine. However when I try to do something similar using the edit button I get errors - "Unable to cast object of type 'System.String' to type 'AddressBook.Contact'."

Dim C As Contact
    If lstContact.SelectedItem IsNot Nothing Then
        C = lstContact.SelectedItem()
        C.Display()
    End If

I think it may be something simple however I wasn't able to fix it and given short time I have I decided to ask for help here.

Thank you