Imports System Imports System.Text Imports System.Runtime.InteropServices Imports System.IO Public Class MainForm Const StringBufferLength As Integer = 255 #Region "API Calls" ''' <summary> ''' This demonstrates the different calling variations using the function Beep. Check ''' The declarations in class CallingVariations. ''' </summary> Private Sub btnBeep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBeep.Click If rbDeclare.Checked Then CallingVariations.DeclareBeep(800, 1000) ElseIf rbDLLImport.Checked Then CallingVariations.DLLImportBeep(900, 1000) ElseIf rbANSI.Checked Then CallingVariations.ANSIBeep(1000, 1100) ElseIf rbUnicode.Checked Then CallingVariations.UnicodeBeep(1200, 1000) ElseIf rbAuto.Checked Then CallingVariations.AutoBeep(1300, 1000) End If End Sub |