Листинг:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = Label1.Text + TextBox1.Text + "; "

        ListBox1.Items.Add(TextBox1.Text)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxMMControl1.Notify = False

        AxMMControl1.Wait = True

        AxMMControl1.Shareable = False

        'AxMMControl1.DeviceType = "WaveAudio"

    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Dim g As Graphics = e.Graphics

        Dim pn As New Pen(Color.Black, 5)

        'Задаем ширину и высоту

        Dim width As Integer = 200, height As Integer = 180

        'Задаем координаты вершины

        Dim x As Integer = 5, y As Integer = 150

        Dim rect As New Rectangle(x, y, width, height)

        g.DrawRectangle(pn, rect)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        OpenFileDialog1.ShowDialog()

        AxMMControl1.FileName = OpenFileDialog1.FileName

        AxMMControl1.Command = "Open"

        AxMMControl1.hWndDisplay = Me.PictureBox1.Handle.ToInt32

        PictureBox1.Focus()

    End Sub

End Class