Imports SystemClass 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