新建Form1,新建 txtPing(TextBox),List1(List1Box),cmdPing(CommandButton), txtConvert(TextBox), cmdFormat(CommandButton)
新建模块 cPing.cls ,代码如下: