从vb6转到vb.net

下面是一段关于抄表机的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 从vb6转到vb.net Visual Basic 6.0 VB.NET

补充：.NET技术 ,  VB.NET