如何做一个播放视频的activex控件（分不够再加）

我想做一个播放视频的activex控件，就如同Active Movie一样，请赐教。