Lige et par små problemer med chat program

Jeg har prøvet at lave et program, og nu er de fleste fejl rettede, men jeg kan ikke finde ud af de sidste,er der nogle der kan hjælpe mig????
Her er koden:
Public Class Start_Form

    Private Sub Start_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Skaber forbindelser
        ' [Alle winsock-kontroller befinder sig på formen: "forbindelser"]
    [b] RaiseEvent Load(Forbindelser)[b/]

        ' [* * Skaber forbindelse til andre * *]
        With Forbindelser.Skab_forbindelse
            ' (lukker for ikke at skabe konflikter)
            .Close()
            .Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
            ' (bruger port 80)
            .LocalPort = 80
            .RemotePort = 80
            ' (denne ip-adresse kan bruges til at åbne forbindelser)
            .RemoteHost = "255.255.255.255"
            ' (forbinder til porten)
            .Bind(80, .LocalIP)
        End With

        ' [Skriver navnet på den lokale computer]
        Label2.Enabled = "Velkommen " & Forbindelser.Skab_forbindelse.LocalHostName

        ' [* * Gør det muligt at skrive med andre * *]
        With Forbindelser.Skriv
            .Close()
            .Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
            ' (bruger port 81)
            .LocalPort = 81
            .RemotePort = 81
            .Bind()
        End With

    End Sub
    Private Sub BrugerList_Click()
        ' Aktiver knapperne
[b]      Command2.Enabled = "Skift " & Bruger
(BrugerList.ListIndex + 1).Navn & "'s brugernavn" [b/]
        Command2.Enabled = True
        Command4.Enabled = True
    End Sub
    Private Sub Command1_Click()
        ' Sender beskeden til alle brugere
        SendTilAlle("chatbesked|" & Text2.Text & "|" & Forbindelser.Skab_forbindelse.LocalHostName & "|")
        ' {Bemærk at den besked der skal sendes er delt op}
        ' {med "|". Det gøres for at modtageren kan dele}
        ' {den op i:}
        ' (1) typen at modtage
        ' (2) indholdet
        ' (3) hvem der sender
        ' Nulstiller
        Text2.Text = ""
    End Sub
Private Sub Command2_Click()
        ' Skift Navn
        Dim NytNavn As String
    [b]With Bruger(BrugerList.ListIndex + 1)[b/]
            NytNavn = InputBox("Skift Navn på brugeren: " & .Navn & " der har computernavnet: " & .ComputerNavn & ":", "Skift brugernavn", .Navn)
            If NytNavn <> "" Then
                .Navn = NytNavn
            End If
            Opdater()
        End With
    End Sub   
Private Sub Command3_Click()
        Opdater()
    End Sub
    Private Sub Command4_Click()
        MsgBox("For at vise mulighederne med opdelningen af sendte beskeder, vises det her, hvor let det er at skabe dynamik.", vbInformation)
        ' For at vise det forkellige fordele ved at
        ' anvende tekstdelningen er dette eksempel
        ' godt.
        ' Send til en bruger
    [b]  SendBesked("test|", (BrugerList.ListIndex + 1))[b/]
    End Sub
    Private Sub Text2_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
        ' 13 er enter
        If KeyCode = 13 Then
            Command1_Click()
        End If
    End Sub
End Class

Jeg har problemer med
[b]'ListIndex' is not a member of 'System.Windows.Forms.TextBox'[b/]
og
[b]Derived classes cannot raise base class events.[b/]