从vb6转到vb.net

[Chastai]

下面是一段关于抄表机的vb6的代码。
请帮我把这段代码转到vb.net(2008)吧。谢谢！
--------------------------------------------
Public Declare Function brGetNormalFileList Lib "brcomm.dll" (ByVal iPortNo As Long, ByRef sFileList As S_BR_FILE_INFO, ByRef piCount As Long) As Long
Type S_BR_FILE_INFO
iFileLength As Long
iFileNo As Long
szFileName(1 To 32) As Byte
End Type

private Sub getValues()
Dim stNormalList(0 To 512) As S_BR_FILE_INFO
Dim i, iFileCount As Long
Dim loListItem As ListItem
Dim sFileName As String

iFileCount = 0

iRet = brGetNormalFileList(iPortNo, stNormalList(0), iFileCount)
If iRet <> ESUCCESS Then
MsgBox "获取已删除文件列表失败!"
Exit Sub
End If


lvNormalFileList.ListItems.Clear

For i = 0 To iFileCount - 1
sFileName = StrConv(stNormalList(i).szFileName, vbUnicode)
Set loListItem = lvNormalFileList.ListItems.Add(, , sFileName)
loListItem.SubItems(1) = CStr(stNormalList(i).iFileLength)
loListItem.SubItems(2) = CStr(stNormalList(i).iFileNo)
Next i

End Sub