帮我翻译foxpro原代码成vb啊，我给分

Question

Private arrayx
   Me.mscomm.inbuffercount = 0
   Me.mscomm.InputLen = 1
   Me.mscomm.CommPort = Val(Me.text2.Text)
   If Me.mscomm.PortOpen Then
      Me.mscomm.PortOpen = False
   End If
   Me.mscomm.PortOpen = True
   this.Enabled = False
   Private array1(0 To 2), buffer, s, kh, vsign, ntime, jh
   s = ""
   Do While True
   If Me.mscomm.inbuffercount > 0 Then
      vsign = True
      buffer = Me.mscomm.input
      array1 = buffer
      If Not (Asc(array1(0)) = 13) Then
         s = s + array1(0)
      End If
   End If

Answer 1

this.parent改为Mscomm的拥有窗体名
.t. 改为 True
.f. 改为 False