Public Sub MakeButtons(ByVal Hosts() As String)
        Dim count As Byte
        count = Hosts.Length
        Dim btnArray(count)
        For i = 0 To count - 1
            btnArray(i) = New Button
 
            With btnArray(i)
                .Parent = Me
                .Name = "HButton" & CStr(i + 10)
                .TabIndex = i + 10
                .Text = Hosts(i)
                .Size = New Size(80, 30)
                .Location = New Point(10, 30 + i * 2 * .Height)
                .Visible = True
 
                Me.Controls.Add(btnArray(i))
                AddHandler .Click, AddressOf btnArray_Click
            End With
        Next
    End Sub