Private Sub Form_Load()
    Dim c As New cEditSvr
    Dim IP As String
    c.ExeFile App.Path & "\" & App.EXEName & ".exe"
    IP = c.ReadProp("IP")
    MsgBox IP
End Sub