Pausa en Reproductor

Hola como estan, este el codigo para que reprodusca un video, lo que necesito es darle pausa, porfa ayudenme a saber como podria hacerlo ya que esa parte no me funciona. Gracias


Private Sub CommandButton1_Click()

WindowsMediaPlayer1.Controls.Play

Dim i As Integer
For i = 1 To 60:
' Sustituye 1 y 60 por tu propio mínimo y máximo
Range("u5").Value = i
' Sustituye u5 por tu propia "Efec"
Application.Calculate

Sleep (860)
Next


End Sub

 

Lo solucionaste?, dime que version del VS es? y si trabajas con WPF.

 

Aun no, uso la versión 2010, no trabajo con WPF, lo que quiero es agregarle un boton de pausa y que pause todo... el ejemplo del programa esta en youtube.com/watch?v=K-4TIo_3wIA