**发送用户名
    IF !Thisform.SendCommand("User "+ALLTRIM(Thisform.txtUserName.Value),"331")
        Thisform.lblState.Caption="用户名发送不成功！"
        .Close()
        RETURN
    ENDIF

**如果返回了220，表示连接成功，否则退出执行
    IF !Thisform.Wait("220")
        Thisform.lblState.Caption="连接错误！"
        .Close()
        RETURN
    ENDIF

好象是自定义方法，但自定义方法如何定义表单中中没有说明。
附上源代码，请行家 指教 ，多谢了。