下記を参考しています、
hhttp://72.14.207.104/search?q=cache:oYCF6PdMQLoJ:www2.plala.or.jp/k-
world/vbasic/vbasic008.html+Directshow+VB&hl=ja&ct=clnk&cd=6&lr=lang_ja

問題１．
再生終了後画面が止まっています、そのとき、再生ボタンを押しても、再生してくれない、
その再生ボタンを使えるように、どうしたらいいでしょうか。

問題2．
.mpg;*.avi;*.mov;*.wav;*.mp2;*.mp3などファイルはどうやって作るのでしょうか。

よろしくお願いします.

問題2だけ回答します（ってやると問題1は誰もレスを着けなくなってしまうかも。前回の質問ではそうでしたね）

> 問題2．
> .mpg;*.avi;*.mov;*.wav;*.mp2;*.mp3などファイルはどうやって作るのでしょうか。

一般回答：専用のH/Wと専用のS/Wで作成します。
H/W：動画で言えばビデオカメラ・USBカメラ・携帯電話など。音声・音楽はマイク・CDドライブ・テープデッキなどですかね。
S/W：有償・無償いっぱいあるので自分で調べてくださいね。ULEAD、Adobeなどが有名メーカーかな。

gtさんへの回答：「拡張子辞典」などで各拡張子の意味や使われ方を調べる。googleで「各拡張子＋作
成」で調べる。動画作成／音楽作成に特化したサイト、会議室があるのでそちらに行く。


＃データが後でアプリが先でしたか。私の場合は巷に転がっている動画・音楽を自分でコントロールしたいということでデータが先でアプリが後ですけどね。

> （ってやると問題1は誰もレスを着けなくなってしまうかも。
では問題１は私から（笑

リンク先のソースを見てみましたが
これからあまり大きく変わっていないと仮定して
ファイルのロード時に開始位置が０にセットされてますね。
で、ためしに クラスモジュールの Playメソッド の 最初に
同じように mdblStartPosition = 0# を入れるとどうでしょう？

で、これだと毎回最初から再生されてしまうので
実際は、「巻き戻し」のボタンとかで 開始位置を戻すか
再生終了した時に ゼロにしてあげればいいのではないでしょうか

ダンボさん、これさん
ご返事ありがとう.

>H/W：動画で言えばビデオカメラ・USBカメラ・携帯電話など。音声・音楽はマイク・CDドライブ・
テープデッ
>キなどですかね。
>S/W：有償・無償いっぱいあるので自分で調べてくださいね。ULEAD、Adobeなどが有名メーカーかな
。

H/W：のほうですが、その辺を調べます。

>同じように mdblStartPosition = 0# を入れるとどうでしょう？

mobjMediaPosition.CurrentPosition = 0　
すると、うまくできました。

アドバイスありがとうございました。