Mobile

Public Function ChangeFormat(ByVal dtm As String) As Date
        Dim temp As String = ""
        temp = Mid(dtm, 4, 2) & "/"
        temp = temp & Mid(dtm, 1, 2) & "/"
        temp = temp & Mid(dtm, 7, 4) & " "
        temp = temp & Mid(dtm, 12)
        ChangeFormat = CDate(temp)
    End Function
    Private Sub cmdimport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdimport.Click
        Try
            If connect2008() = True Then
                If MsgBox("Do you want to export data to server?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    Dim _cmd As New SqlCommand("", connchip)
                    Dim i As Integer = 0
                    Dim strsql2 As String = ""
                    Dim tmp As String = ""
                    Dim ln() As String
                    Dim f As New System.IO.StreamReader("\ticketpro\export\" & Format(Now, "yyyyMMdd") & "HH.txt")
                    While Not f.EndOfStream
                        tmp = f.ReadLine
                        ln = tmp.Split(",")
                        strsql2 = "insert into handheld ("
                        strsql2 = strsql2 & "dat, "
                        strsql2 = strsql2 & "ticketnum, "
                        strsql2 = strsql2 & "stationid, "
                        strsql2 = strsql2 & "hhid, "
                        strsql2 = strsql2 & "status) values ("
                        strsql2 = strsql2 & "'" & ChangeFormat(ln(1)) & "', "
                        strsql2 = strsql2 & "'" & ln(2) & "', "
                        strsql2 = strsql2 & ln(0) & ", "
                        strsql2 = strsql2 & ln(4) & ", "
                        strsql2 = strsql2 & "'" & ln(3) & "') "
                        _cmd = New SqlCommand(strsql2, connchip)
                        _cmd.ExecuteNonQuery()
                    End While
                    _cmd.Dispose()
                    f.Close()
                    f.Dispose()
                    connchip.Close()
                    MsgBox("Export Done")
                Else
                    MsgBox("Server not in range")
                End If
            End If
        Catch ex As Exception
            MsgBox("import error " & ex.ToString)
        End Try
    End Sub
    Public Function connect2008() As Boolean
        connect2008 = False
        Dim path As String
        Dim database As String
        Dim temp As String = ""
        Dim temp2(15) As String
        Dim server As String
        Dim FileReader As StreamReader
        FileReader = New StreamReader("\ticketpro\chip.txt")
        temp = FileReader.ReadToEnd()
        temp2 = Split(temp, ",")
        FileReader.Close()
        database = temp2(8)
        server = temp2(7)
        path = "Data Source=eazzi-pc\SQLEXPRESS2012;Initial Catalog=ticketprozaarour; User Id=system; Password=startup;"
        Try
            connchip = New SqlConnection(path)
            connchip.Open()
            connect2008 = True
        Catch ex As Exception
            connect2008 = False
            MsgBox("error in function connect 2008")
        End Try
    End Function
      Private Sub TImageButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TImageButton1.Click
        Me.Close()
    End Sub
End Class

private void myPivot_SelectionChanged(object sender, SelectionChangedEventArgs e)
        {
            if (e.AddedItems.Count > 0)
            {
                //Remove old Items
               // Add New Item to Page collection (Pages.Add())
               //Show only 1 pivot item (Users should see other pivot item headers)
            }

        }

<ScrollViewer VerticalScrollBarVisibility="Visible">
                    <TextBlock x:Name="txt" Foreground="White" FontSize="40"/>
    </ScrollViewer>

for (var i = 0; i < 50; i++)
                txt.Text += counter++ + Environment.NewLine;

http://msdn.microsoft.com/en-us/library/windowsphone/develop/hh202978(v=vs.105).aspx[^]

When Playing file, there is 1-3 seconds delay in playing each Mp3 file.

I am looking to remove this delay or play next track (next mp3 file) before reaching just to an end.