新建Form1，新建 txtPing（TextBox），List1（List1Box），cmdPing（CommandButton）, txtConvert（TextBox）, cmdFormat（CommandButton）

新建模块 cPing.cls ，代码如下：