Public Class Form1
    'The following code creates a Point array to play a simple melody:
    Dim soundsAlien As Point() = {New Point(932, 500), New Point(1047, 500), New Point(831, 500), New Point(415, 500), New Point(622, 900)}
    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        PlayTones(soundsAlien)
    End Sub
    Public Sub PlayTones(ByVal toneArray() As Point)
        ' ----- Play a set of tones, one after another.
        Dim frequency As Integer
        Dim duration As Integer
        For Each tone As Point In toneArray
            frequency = tone.X
            duration = tone.Y
            Console.Beep(frequency, duration)
        Next tone
    End Sub
End Class