sorteren

[droomke]

Iemand een idee hoe ik in deze opgave de pc's na het terugzetten in lijst1, ze terug kan sorteren op naam?

Hier de code:

Public Class frmDefecten

Private Sub btnDefect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDefect.Click
Dim intIndex As Integer
'De geselecteerde pc uit lijst1 toevoegen aan lijst2.
Me.lstLijst2.Items.Add(Me.lstLijst1.SelectedItem)
'Deze PC wissen uit lijst 1
intIndex = Me.lstLijst1.SelectedIndex
Me.lstLijst1.Items.RemoveAt(intIndex)
'de volgende pc uit lijst1 selecteren'
'als er geen pc meer overblijft in lijst1,
'wordt er geen pc mee geselecteerd en wordt overzetknop uitgeschakeld
If Me.lstLijst1.Items.Count = 0 Then
Me.btnDefect.Enabled = False
Else
If intIndex = Me.lstLijst1.Items.Count Then
Me.lstLijst1.SelectedItem = Me.lstLijst1.Items(0)
Else
Me.lstLijst1.SelectedItem = Me.lstLijst1.Items(intIndex)
End If
End If
End Sub

Private Sub frmDefecten_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim intTeller As Integer
Dim strTeller As String
'Lijst vullen met benaming van de 16 PC's
For intTeller = 1 To 16
strTeller = intTeller.ToString("00")
Me.lstLijst1.Items.Add("PC" & strTeller)
Next
'De eerste pc uit lijst 1 selecteren
Me.lstLijst1.SelectedIndex = 0
End Sub

Private Sub btnHersteld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHersteld.Click
Dim intIndex As Integer
'De geselecteerde pc uit lijst1 toevoegen aan lijst2.
Me.lstLijst1.Items.Add(Me.lstLijst2.SelectedItem)
'Deze PC wissen uit lijst 2
intIndex = Me.lstLijst2.SelectedIndex
Me.lstLijst2.Items.RemoveAt(intIndex)
'de volgende pc uit lijst2 selecteren'
'als er geen pc meer overblijft in lijst2,
'wordt er geen pc mee geselecteerd en wordt overzetknop uitgeschakeld
If Me.lstLijst2.Items.Count = 0 Then
Me.btnHersteld.Enabled = False
Else
If intIndex = Me.lstLijst1.Items.Count Then
Me.lstLijst2.SelectedItem = Me.lstLijst2.Items(0)
Else
Me.lstLijst2.SelectedItem = Me.lstLijst2.Items(intIndex)
End If
End If
End Sub
End Class

thanks