BGMを停止させるには？ (ID:109744)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 我龍院さんありがとうございます。 実際にはチェックボックスにチェック入っていたら 音鳴らしチェック外されたら音を消すって事をしたいのですが、 何しろ初心者なので書き方がよく分かりません。 ↓自分で変更してみたのですが後どこを変更すればよいでしょうか?? Private Sub Check1_change() Dim r As Long If Checkbox1.Value = False Then elself Checkbox1.Value = True Then'←このThenは必要ないんでしょうか？ r = sndPlaySound("C〜.wav", SND_ASYNC) End Sub