Dim Row As DataRow
 
        Dim ServerlisteSB As String = Space(256)
        Dim ServerlisteFile As Integer = INIGetAPI(Nothing, Nothing, "???????", _
          ServerlisteSB, ServerlisteSB.Length, Application.StartupPath + _
          "\Logins.ini")
        For Each k As String In ServerlisteSB.Substring(0, ServerlisteFile - _
        1).Split(Chr(0))
            Row = ServerlisteTableData.NewRow()
            Row(0) = INIGet(k, "Login")
            Row(1) = INIGet(k, "Passwort")
            ServerlisteTableData.Rows.Add(Row)
        Next