Animation

�BList1のコード
　項目に対する曲がMediaPlayer１から流れるようにするには？
 k = List1.ListIndex + 1
Select Case k
Case 1
　kyoku = "フォルダー名\ファイル名１"
Case 2
　kyoku = "フォルダー名\ファイル名2"
Case 3
　kyoku = "フォルダー名\ファイル名3"
Case 4
　kyoku = "フォルダー名\ファイル名4"
Case 5
　kyoku = "フォルダー名\ファイル名5"
End Select
MediaPlayer1.FileName = kyoku　　　　←　ファイル実行

�CList2のコード
　項目に対するGIFやFlashがWebBrowser１で表示できるようにするには？
 
　anim = "フォルダー名\ファイル名5"
　　として同様にできるが，フォルダー名には正式名（C:\........)にすること。

そして実行は　WebBrowser1.Navigate anim　です。

�DForm_Loadのコード
　List1.Clear
　List1.AddItem "曲名１"
  List1.AddItem "曲名2"
  List1.AddItem "曲名3"
  List1.AddItem "曲名4"
  List1.AddItem "アニメ"
　List2にも同じく。

�ECommand1は終了ボタンです。

プログラム（ｆｒｍ，ｖｂｐとも）を保存する場所に気をつけて。では実行してみよう。目的の曲が聴けましたか？ 　

★ではリストボックスに登録されていないファイルの扱いは？
　Case をもうひとつ追加して　CommonDialogより選んだ曲をkyokuとします。

★また起動と同時に曲が流れるようにするには
　Form_Loadの最後の行に付加
 　List1.ListIndex=○
　　　　○は選曲番号　　List1に載っているもので0から始まる
　　List2についても同様です。