★　ビープ音を鳴らす
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'ビープ音を鳴らす
    Microsoft.VisualBasic.Beep()

又は、( .NET Framework 2.0 以降 なら)
　　System.Media.SystemSounds.Beep.Play()
　　My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
　　
End Sub