翻译短信收发控件VB.NET源码

求助：翻译短信收发控件VB.NET源码
在调试短信猫。前日在“sunhongwu”的帮助下，得到了DLL的VB源码及答疑，帖子已结。现还有一个使用OCX控件的，厂家只有支持VB.NET的二次开发包，而我仅会VFP，现请求高手将其中的调用alasunsmscon.ocx控件及其连接短信猫、接收、发送短信等VB源码告知，我试着将其转换为VFP。谢谢。
现将厂家给的支持VB.NET的二次开发包用WINRAR压缩后上传，文件很小,只有40.4K。
http://www.vdisk.cn/down/index/15206044

------解决方案--------------------
其中的代码不难阿，打开后出错的，是意思是转为VB？

------解决方案--------------------
vb.net所有代码如下：
先要注册控件：regsvr32.exe c:\windows\system32\alasunsmscon.ocx

 Private Sub cmdConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click

        Axalasunsms1.CommPort = Val(txtCommPort.Text)

        If Axalasunsms1.OpenComm() = 0 Then

            Axalasunsms1.SetMsgCenterNo(txtMsgCenter.Text)

            cmdConnect.Enabled = False

            cmdDisConnect.Enabled = True

            cmdSend.Enabled = True

            cmdRead.Enabled = True

            MsgBox("设备打开成功")

        Else

            MsgBox("设备打开失败")

        End If

    End Sub


    Private Sub cmdDisConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDisConnect.Click

        If Axalasunsms1.CloseComm = 0 Then

            cmdConnect.Enabled = True

            cmdDisConnect.Enabled = False

            cmdSend.Enabled = False

            cmdRead.Enabled = False

            MsgBox("设备关闭成功")

        Else

            MsgBox("设备关闭失败")

        End If

    End Sub


    Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click

        Dim lngMsgType As Long

        If chkBlink.Checked Then

            lngMsgType = lngMsgType + 2

        End If

        If chkFlash.Checked Then

            lngMsgType = lngMsgType + 4

        End If

        If Axalasunsms1.SendMsg(txtNo.Text, txtCon.Text, "", lngMsgType, False) = 0 Then

            MsgBox("发送成功")

        Else

            MsgBox("发送成功")

        End If

    End Sub


    Private Sub Axalasunsms1_OnReceive(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Axalasunsms1.OnReceive

        Dim sNo As String, sCon As String, sMsgCenterNo As String

        Dim dSendTime As Date, lTimeZone As Integer

        If Axalasunsms1.ReadMsg(sNo, sCon, sMsgCenterNo, dSendTime, lTimeZone) = 0 Then

            txtReceive.Text = dSendTime & "收到来自" & sNo & "的短信，短信中心号：" & sMsgCenterNo & "内容：" & sCon

        End If

    End Sub


    Private Sub cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click