サンプルありました、ありがとうございます
winmm.dllの使い方が載っているサイトとかありましたら
ご教授願います

VBでのサブルーチンってどうやって作るんですか?