Код:

Private DD As New MCIClass

Private Sub Com1_Click()
Unload Me
End Sub

Private Sub CNext_Click()
CPause_Click
T1.Enabled = False
DD.From = Int(DD.Length / 100) * (HS.Value + 10)
CPlay_Click
End Sub


Private Sub CPause_Click()
CPlay.Visible = True
CPause.Visible = False
DD.Pause
T1.Enabled = False
End Sub

Private Sub CPlay_Click()
CPlay.Visible = False
CPause.Visible = True
DD.Play
T1.Enabled = True
End Sub

Private Sub CPrev_Click()
CPause_Click
T1.Enabled = False
DD.From = Int(DD.Length / 100) * (HS.Value - 10)
CPlay_Click
End Sub

Private Sub Form_Load()
Me.Top = Screen.Height - Me.Height - 600
Me.Left = 0
Me.Show
DD.OpenMCI ("D:\f\A.avi")
CPlay_Click
T1.Enabled = True
DD.ShowErrors = False
End Sub

Private Sub Form_LostFocus()
Me.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
DD.StopMCI
DD.CloseMCI
DD.CloseAll
Set DD = Nothing
End Sub


Private Sub T1_Timer()
HS.Value = Int(DD.Position / DD.Length * 100)
End Sub

Конец кода
Так вот, сколько ни бился ну неработает CPrev и cNext=Просто стоит на месте.
DD.Position=*** тоже не помогает.
Прошу помочь со сложившейся гадостью.
Заранее благодарен.