Hvorfor virker det ikke.... (MediaPlayer)

Jeg har følgende kode, hvorfor virker det ikke?
"Min" og "sec" er begge dim as integer


Private Sub Timer1_Timer()

Min = MediaPlayer1.CurrentPosition  60
Sec = MediaPlayer1.CurrentPosition - (Min * 60)
If Min > 0 Or Sec > 0 Then
    lblElapsedTime = "Elapsed Time: " & Format(Min, "0#") _
        & ":" & Format(Sec, "0#")
Else
    lblElapsedTime = "Elapsed Time: 00:00"
End If
End Sub