Attribute VB_Name = "modServerList"
'MOD for server list functions

Public Sub UpdateServerList()
    Dim tempServer As String
    Open App.Path + "\" + "Servers.txt" For Input As #2
    Do While Not EOF(2)
        Line Input #2, tempServer
        frmmain.cboServer.AddItem Trim(tempServer)
    Loop
    Close #2
End Sub