主题：如何做服务启用？

''QQ服务端 - QQServer窗口 - 启动按键事件

QQServer.ServerIp = e.Form.Controls("TextBox1").Value '指定IP地址

QQServer.ServerPort = e.Form.Controls("TextBox2").Value '指定端口

QQServer.HeartbeatInterval = e.Form.Controls("TextBox3").Value '指定心跳时间

QQServer.HeartbeatTimeout = e.Form.Controls("TextBox4").Value '指定心跳超时时间

QQServer.Start() '启动QQServer

PopMessage("服务器已启用!", "提示", PopIconEnum.Infomation, 5)

上面是服务启用，

需求：如果检测数据源的IP，端口的正确，关闭当前模式窗口1，打开模式窗口2，如果检测数据源的IP，端口的不正确，关闭当前模式窗口1，打开模式窗口-IP端口设置窗口？如何实现？