Visual basic 2010 / 2012 kódot kéne kijavídtatni?

Itt a kód:

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

OpenFileDialog1.Multiselect = True

OpenFileDialog1.ShowDialog()

For Each s As String In OpenFileDialog1.FileNames

ListBox1.Items.Add(s)

Next

Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Try

ListBox1.Items.Remove(ListBox1.SelectedItem)

ListBox1.SelectedIndex = "0"

Catch ex As Exception

ListBox1.Items.Remove(ListBox1.SelectedItem)

ListBox1.SelectedIndex = "-1"

End Try

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Timer1.Start()

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Try

Dim itemno As Integer

itemno = ListBox1.SelectedItem

If

Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped

Me.ListBox1.SelectedIndex = itemno + 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Timer1.Start()

Else

Timer1.Start()

End If

Catch ex As Exception

If

CheckBox1.Checked = True

ListBox1.SelectedIndex = "0"

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

AxWindowsMediaPlayer1.URL = ""

ListBox1.SelectedItem = "0"

End If

End Try

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Timer1.Stop()

AxWindowsMediaPlayer1.URL = ""

ListBox1.SelectedIndex = "0"

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Timer1.Stop()

AxWindowsMediaPlayer1.URL = "0"

Me.ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Timer1.Start()

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

Timer1.Stop()

AxWindowsMediaPlayer1.URL = "0"

Me.ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Timer1.Start()

End Sub

End Class

problémák az If -nél!

és itt:

Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped