求救！！！VB代码转C# .net Framework 请高手帮帮！弄几天头都大了。。。

[lijianfan]

//改功能是 在显示屏上可以 显示 数字，英文字母，还有些？，。 什么的 （不能显示汉字功能）
Public Sub SendTP() '条屏发送握手信息及位图数据子程序 没有返回值
Dim HzCode As Integer, int1 As Integer, HzStr As String
Dim i As Integer, j As Integer, a As Integer, b As Integer, ShowLen As Integer, LstCount As Integer
Open "ASC16" For Binary As #1
Open "HZK16" For Binary As #2
’Dim ShowArray() As Byte ‘好像这句不要掉也可以
ReDim ShowArray(0 To 15, 0 To 31) As Byte
HzStr = TxtTP.Text '====================
i = 0
LstCount = Len(HzStr)
For int1 = 0 To LstCount - 1 '.......................1
HzCode = Asc(Mid(HzStr, int1 + 1, 1))
If HzCode > -1 Then '单字节字符
Get #1, HzCode * 16 + 1, ShowArray(0, i) 'HzCode * 16 + 1 在此处开始读取数据
For j = 1 To 15 '.......................3
Get #1, , ShowArray(j, i)
Next
i = i + 1 '.......................3 '双字节字符(汉字)
End If
Next int1 '.......................1
Close #1, #2 '显示宽度(以字节为单位)
MSComm1.CommPort = 4 ‘串口名称是COM4
MSComm1.Settings = "19200,n,8,1"
MSComm1.PortOpen = True '打开端口
Dim Dis As Variant 'Variant可以使用于所有类型 可以接受任何类型的数据。
‘Dim ShowPara() As Byte ‘好像这句不要掉也可以
ReDim ShowPara(0 To 1) 'ReDim重新定义数组 改变大小时会保留原来的数据
ShowPara(0) = 4 '=4 表示在显示屏上 ,为固定显示
ShowPara(1) = CByte(LstCount) ' ' 将ShowLen转换为“字节”（Byte）类型 在上面等于i
Dis = "HellA"'发送"Hello"联络信号 HellA 是与LED显示屏的联络信号
MSComm1.Output = Dis 'txt1.Text = "result= " & Dis '=======================================
Dis = ShowPara '发送显示模式和显示长度
MSComm1.Output = Dis
’Dim TempArray() As Byte ‘好像这句不要掉也可以
ReDim TempArray(0 To LstCount - 1) As Byte
For a = 0 To 15 '.......................2
For b = 0 To LstCount - 1 '.......................1
TempArray(b) = ShowArray(a, b)
Next b '.......................1
Dis = TempArray
MSComm1.Output = Dis ' Do: ret = DoEvents(): Loop Until MSComm1.OutBufferCount = 0 '稍等候
Next a '.......................2
End Sub