1)  
  -  ,             -   ,     .      C:\Windows\Media.     ,   wav.    Chime.wav, Notify.wav, Tada.wav  Log-off.wav. 
      Microsoft Multimedia Control 6.0.    .     ,       .   ,     .     Visible -  False. 
   Wav-   WaveAudio.      ,  -.     .
.DeviceType = "WaveAudio"
 ,     -  Form_Load.
           :
.FileName = "c:\Windows\Media\.wav"

.Command = "Open"
.Command = "Sound"
.Command = "Close"

:     "Sound"    ,    "Play",     ,  -       ,      .     ,    .     "Play"    Canyon.mid,     ,   .      "Sound" -  Chimes.wav,    "". 
:       ,       Canyon.mid  Wav-.
        ,   :

Private Sub __Click()
    .FileName = "c:\Windows\Media\Chimes.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
    .Text = Val(1.Text) + Val(2.Text)
End Sub

Private Sub __Click()
    .FileName = "c:\Windows\Media\Notify.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
    .Text = Val(1.Text) - Val(2.Text)
End Sub

Private Sub Form_Load()
    .DeviceType = "WaveAudio"
    .DeviceType = "Sequencer"
    .FileName = "c:\Windows\Media\Canyon.mid"
    .Command = "Open"
    .Command = "Play"
End Sub

Private Sub Form_Terminate()
    .Command = "Close"
End Sub

2) 
  Microsoft Multimedia Control 6.0          -  --.      ,    "CDPlayer".     CD-ROM  .       :

CDPlayer.DeviceType = "CDAudio"
CDPlayer.Command = "Open"
CDPlayer.Command = "Play"

  -        Visual Basic.  .   Visual Basic   .  - Microsoft Multimedia Control 6.0     ,      - .
3)   
      5-6   ,       - ,     5-6     .      -.
   ,         . ,     "",          .   -   

Form1.Picture = LoadPicture("C:\Program Files\Microsoft Office\Clipart\Popular\Agree.wmf")

 LoadPicture   .          . ,        . 
   ,           , , - .        (Label)       - 
Label1.Caption = " - .    1970 ."

       -   ?        ,     . 
 
.Command = "Play"
.Command = "Close"

 ,    ,   .    :

.Command = "Close"
.FileName = "c:\Windows\Media\Canyon.mid"
.Command = "Open"
.Command = "Play"

  "Close"       ,      .    "Open"    .