Public Sub MakeButtons(ByVal Hosts() As String)
        Dim count As Integer
        count = Hosts.Length
        Dim ButtonHeight As Integer = 40
        Dim btnArray(count) As Button
        For i As Integer = 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 Drawing.Size(80, 30)
                .Location = New Drawing.Point(10, 30 + i * 2 * ButtonHeight)
                .Visible = True
 
                Me.Controls.Add(btnArray(i))
                AddHandler .Click, AddressOf btnArray_Click
            End With
        Next i
    End Sub