' beep.vb

Imports System
Imports System.Runtime.InteropServices

' [VB.NET に関する補足]
'   VB.NET では中身のない関数を定義し、その関数に対して DllImport 属性
' を指定する。また、クラスではなくモジュールの内部で宣言することも可能
' であり、その場合は Shared 修飾子を省略して宣言する。
'   このほか、VB.NET の場合は、従来の VB と同様に Declare ステートメン
' トを利用する方法もある (詳細は省略)。

Class BeepProgram
  <DllImport("kernel32.dll")> _
  Private Shared Function Beep _
    (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Boolean
  End Function

  Public Shared Sub Main()
    Beep(262, 500)      ' ド
    Beep(294, 500)      ' レ
    Beep(330, 500)      ' ミ
    Beep(349, 500)      ' ファ
    Beep(392, 500)      ' ソ
    Beep(440, 500)      ' ラ
    Beep(494, 500)      ' シ
    Beep(523, 500)      ' ド
  End Sub
End Class

' コンパイル方法: vbc beep.vb