Public Class FormSettings
 
    Public Function GetServer(ByVal i As Integer) As String
 
        Select Case i
            Case 1
                GetServer = Server1.Text
            Case 2
                GetServer = Server2.Text
            Case 3
                GetServer = Server3.Text
            Case 4
                GetServer = Server4.Text
            Case 5
                GetServer = Server5.Text
            Case Else
                GetServer = "kein Server"
        End Select
 
    End Function
End Class

Public Class PoolTable
 
    Private settings As New FormSettings
 
    Public Sub Formload(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        Dim i As Integer = 1
        ComboBoxServer.Items.Add(settings.GetServer(i))
    End Sub
 
End Class