C# と VB.NET の質問掲示板

 Visual Studio VB環境使ってます。

曲をloopさせたとき
System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'
とでてきました。

デバック中のエラーは

mports System.IO
Imports System

Public Class usercontrol1
Dim length As Integer
    Dim current As Integer

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
’ここです↓        
length = AxWindowsMediaPlayer1.currentMedia.duration
’↑
        current = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

        ProgressBar1.Value = current
        ProgressBar1.Maximum = length

        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

何度もやっても変わらず、System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'

検索してみても当てはまるものが検討しません。

よろしくお願いします。