Form1

Imports System.Threading.Tasks

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lol As New Client
        lol.Connect(TextBox2.Text, NumericUpDown1.Value)
        ListBox1.Items.Add(lol)



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ListBox1.SelectedItems.Count <> 0 Then
            CType(ListBox1.SelectedItem, Client).Send(TextBox1.Text)
        End If
    End Sub
End Class