Public Class Form1
    Declare Function waveOutSetVolume Lib "winmm" (ByVal hwo As IntPtr, ByVal _
      dwVolume As UInt32) As Int32
    Private WithEvents Tb2 As New TrackBar With {.Dock = DockStyle.Top, _
    .Maximum = 100, .Value = 100, .Parent = Me}
    Private WithEvents Tb1 As New TrackBar With {.Dock = DockStyle.Top, _
    .Maximum = 100, .Value = 100, .Parent = Me}
    Private WithEvents Btn As New Button With {.Dock = DockStyle.Bottom, .Text _
    = "Play Sound", .Parent = Me}
 
    Private Sub Btn_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Btn.MouseDown
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
    End Sub
 
    Private Sub Tb_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Tb1.ValueChanged, Tb2.ValueChanged
        SetVolume(Tb1.Value, Tb2.Value)
        Me.Text = Tb1.Value.ToString & "," & Tb2.Value.ToString
    End Sub
 
    Private Sub SetVolume(ByVal vLeft As Int32, ByVal vRight As Int32)    _
      '0-100%, 0-100%
        waveOutSetVolume(IntPtr.Zero, (CUInt(655.35 * vRight) << 16) + CUInt( _
        655.35 * vLeft))
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SetVolume(100, 100)
    End Sub
End Class