Development VB.Net

Imports System
Class Sample
   Public Shared Sub Main(args() As String)
      Dim x As Integer = 0
      Dim i As Integer
      For i = 1 To 3
          Console.Beep()
      Next i
   End Sub 
End Class