Visual Basic

Public Shared Function BloomingtonCA() As trackService.TrackReply

        Dim serializer As XmlSerializer = Nothing
        serializer = New XmlSerializer(GetType(trackService.TrackReply))
        AddHandler serializer.UnknownNode, AddressOf serializer_UnknownNode
        AddHandler serializer.UnknownAttribute, AddressOf serializer_UnknownAttribute

        Dim fileStream As Stream = Assembly.GetExecutingAssembly.GetManifestResourceStream("FedExCorp.bloomingtonCA.xml")
        Dim bytes As Byte() = New Byte(fileStream.Length) {}
        fileStream.Position = 0
        fileStream.Read(bytes, 0, fileStream.Length)
        Dim rxn_string As String = Encoding.UTF8.GetString(bytes).Replace("???", "")

        Dim rxnStream As New IO.MemoryStream
        Dim utf8 As Encoding = New UTF8Encoding()
        Dim writer = New XmlTextWriter(rxnStream, utf8)
        writer.WriteRaw(rxn_string)
        writer.Flush()
        rxnStream.Position = 0

        Dim reader = New StreamReader(rxnStream)
        Dim rateReply As New trackService.TrackReply()
        rateReply = CType(serializer.Deserialize(reader), trackService.TrackReply) 'XML Error here
        If Not (reader Is Nothing) Then reader.Close()

        Return rateReply

    End Function

<?xml version="1.0" encoding="utf-8" ?>
<TrackReply xmlns="http://fedex.com/ws/track/v10" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
  <HighestSeverity>SUCCESS</HighestSeverity>
  <Notifications>
    <Severity>SUCCESS</Severity>
    <Source>trck</Source>
    <Code>0</Code>
    <Message>Request was successfully processed.</Message>
    <LocalizedMessage>Request was successfully processed.</LocalizedMessage>
  </Notifications>

AxWindowsMediaPlayer1.currentMedia.getItemInfo("Title")

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If Me.RadioButton1.Checked = True Then
            Me.PictureBox1.Visible = True And
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
            Me.PictureBox4.Visible = False
        End If
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        If Me.RadioButton2.Checked = True Then
            Me.PictureBox2.Visible = True
            Me.PictureBox1.Visible = False
            Me.PictureBox3.Visible = False
            Me.PictureBox4.Visible = False
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        If Me.RadioButton3.Checked = True Then
            Me.PictureBox3.Visible = True
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox4.Visible = False
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        If Me.RadioButton4.Checked = True Then
            Me.PictureBox4.Visible = True
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
        End If
    End Sub
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles ButtonExit.Click
        Close()
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles SSRC.TextChanged
    End Sub
End Class

Dim FPath As String
Dim s1 As String = lblSource.Text 'I got the source from a treeview


If lvFiles.SelectedItems.Count > 0 Then
    FPath = s1 + "\" + lvFiles.SelectedItems(0).SubItems(0).Text

    If Directory.Exists(FPath) Then
      ShowFiles(FPath) 'This is a sub that shows files and folders of the given path

    Else
        MsgBox("not valid")
    End If
End If

Dim str As String
        str = lblFolder.Text & "\.."
        lblFolder.Text = str
        'MsgBox(str)
        ShowFiles(str)

C:\000 Test\Conv\Sampple\..\Sample2\..