C# to VB.net Help

[ad.hasareli]

 

[ad.hasareli]

 

[ad.hasareli]

 

[ad.hasareli]

 

[NO_MeRcY]

	Dim dr As TimeSpan = TimeSpan.FromMilliseconds(200)

	Using str As ObexGetStream = session.[Get](Nothing, ObexConstant.Type.FolderListing)
		Dim parser As New ObexFolderListingParser(str)
		parser.IgnoreUnknownAttributeNames = True

		Dim item As ObexFolderListingItem = Nothing
		Dim items As New List(Of ListViewItem)()

		While (InlineAssignHelper(item, parser.GetNextItem())) IsNot Nothing
			If TypeOf item Is ObexParentFolderItem Then
				Continue While
			End If

			Dim filefolderitem As ObexFileOrFolderItem = TryCast(item, ObexFileOrFolderItem)

			Dim isfolder As Boolean = TypeOf filefolderitem Is ObexFolderItem
			Dim temp As New ListViewItem(New String() {filefolderitem.Name, FormatSize(filefolderitem.Size, isfolder), FormatDate(filefolderitem.Modified), FormatDate(filefolderitem.Accessed), FormatDate(filefolderitem.Created)}, GetIconIndex(Path.GetExtension(filefolderitem.Name), isfolder))

			temp.Tag = isfolder
			temp.Name = filefolderitem.Name
			items.Add(temp)

			If old.Add(dr) < DateTime.Now Then
				old = DateTime.Now
				bgwWorker.ReportProgress(0, temp.Text)
			End If
		End While
		e.Result = items.ToArray()
	End Using

 

[ad.hasareli]

    Dim dr As TimeSpan = TimeSpan.FromMilliseconds(200)

    Using str As ObexGetStream = session.[Get](Nothing, ObexConstant.Type.FolderListing)
        Dim parser As New ObexFolderListingParser(str)
        parser.IgnoreUnknownAttributeNames = True

        Dim item As ObexFolderListingItem = Nothing
        Dim items As New List(Of ListViewItem)()

        While ([COLOR=Red]InlineAssignHelper[/COLOR](item, parser.GetNextItem())) IsNot Nothing
            If TypeOf item Is ObexParentFolderItem Then
                Continue While
            End If

            Dim filefolderitem As ObexFileOrFolderItem = TryCast(item, ObexFileOrFolderItem)

            Dim isfolder As Boolean = TypeOf filefolderitem Is ObexFolderItem
            Dim temp As New ListViewItem(New String() {filefolderitem.Name, FormatSize(filefolderitem.Size, isfolder), FormatDate(filefolderitem.Modified), FormatDate(filefolderitem.Accessed), FormatDate(filefolderitem.Created)}, GetIconIndex(Path.GetExtension(filefolderitem.Name), isfolder))

            temp.Tag = isfolder
            temp.Name = filefolderitem.Name
            items.Add(temp)

            If old.Add(dr) < DateTime.Now Then
                old = DateTime.Now
                bgwWorker.ReportProgress(0, temp.Text)
            End If
        End While
        e.Result = items.ToArray()
    End Using

onna othana error akak thiyenawa ban...

 

[ad.hasareli]

bmpppppppppppp