Hjælp til lidt kode

Jeg har min kode som ser sådan ud

Kode 

Private Sub Command1_Click()
List1.AddItem (Text1.Text) 'tilføjer noget til en listbox
List2.AddItem (Text2.Text)
List3.AddItem (Text3.Text)

End Sub

Private Sub Command2_Click()
Dim svar As Integer 'ærklære en variable
dim linie as integer '------------"---------------
svar = MsgBox("Vil du fjerne" & List1.Text & " fra listen ??",  vbYesNo + vbQuestion) 'viser en messagebox med to knapper yes og no
If svar Then
  If List1.Text <> "" Then
   lnie=list1.listindex
   list2.listindex=linie 'vælger den aktuelle lniie
   list3.listindex=linie ' vælgger den aktulelle 
   List1.RemoveItem (List1.ListIndex) ' sletter den atkuellelinje
   List2.RemoveItem (List2.ListIndex) ' sletter den atkuellelinje
   List3.RemoveItem (List3.ListIndex) ' sletter den atkuellelinje
  Else
   MsgBox "Du kan ikke slette denne linie. Den er tom!" 'viser en meddelse
  End If
End If

End Sub


Private Sub Command3_Click()
List1.ListIndex = 0 
If svar Then
  If List1.ListIndex = 0 <> "" Then
    Remove.List1.ListIndex = 0
  Else
   MsgBox "Du kan ikke slette denne linie. Den er tom!"
  End If
End If

End Sub

Så vil jeg have når man vælger en linje skal den vælge linjerne i de 3 list boxe og så slette linjen i de 3 boxe når man trykker på slet knappen.

Der er lige en ting til, jeg vil også have at når man vælger en linje og trykker delete skal den slette linjen, og det samme med enter så skal den bare tilføje det man har skrevet i Text1, Text2 og Text3

Er der ikke en der kan rette lidt i koden da jeg ikke forstår så meget når jeg bare får et stykke kode

Det skal lige siges at jeg har kigget i men bog om vb men intet af det der står i bogen

[Redigeret d. 13/12-03 19:42:58 af kasper]