Public Class Form1
Private Declare Function Beep Lib "kernel32" (ByVal soundFrequency As Int32, ByVal soundDuration As Int32) As Int32
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Beep(532, 300) 'frequancy,duration in miliSec
End Sub
End Class

windows form app, tools add button

gigidi