AxMediaPlayer1でmediaplayerを細かく制御出来そう。以下自分メモ

Dim RetCount As Integer ‘ 再生時間

Dim h As Integer ‘ 時

Dim m As Integer ‘ 分

Dim s As Integer ‘ 秒

‘ 動画ﾌｧｲﾙの読み込み、再生時間の取得

With AxMediaPlayer1

.FileName = FileName

RetCount = .Duration

End With

‘ 再生時間編集

h = RetCount / 60 / 60

m = RetCount / 60 – h * 60

s = RetCount – (h * 60 * 60 + m * 60)