In diesem Beispiel wird die Verwendung der Declare-Anweisung auf Modulebene eines Standardmoduls gezeigt, um einen Verweis auf eine externe Prozedur in einer Dynamic Link Library (DLL) oder Macintosh-Code-Ressource zu deklarieren. Sie können Declare-Anweisungen in Klassenmodulen angeben, wenn die Declare-Anweisungen das Attribut Private haben.
' Code für Microsoft Windows (16-Bit): Declare Sub MessageBeep Lib "User" (ByVal N As Integer) ' Signal1 ist ein Alias für den Prozedurnamen. Declare Sub MessageBeep Lib "User" Alias "Signal1"(ByVal N As Integer) ' Laufende Nummer in Alias-Abschnitt zum Aufruf von GetWinFlags ' verwenden. Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long ' Geben Sie in 32-Bit Microsoft Windows-Systemen nicht die Bibliothek ' USER.DLL an, sondern USER32.DLL. Mit bedingter Kompilierung können ' Sie Code schreiben, der sowohl unter Win32 als auch unter Win16 ' ausgeführt werden kann. #If Win32 Then Declare Sub MessageBeep Lib "User32" (ByVal N As Long) #Else Declare Sub MessageBeep Lib "User" (ByVal N As Integer) #End If ' Auf dem Macintosh: Declare Sub MessageAlert Lib "Hd1:Warnung1" Alias "Warnung1" (ByVal N _ As Integer) ' Code-Ressource in Alias-Abschnitt verwenden. Declare Sub MessageAlert Lib "Hd1:Warnung1" Alias "XTST$Warnung1" _ (ByVal N As Integer) ' Wenn der Typbezeichner der Code-Ressource nur 3 Zeichen hat, müssen ' Sie ein Leerzeichen an der Stelle stehen lassen, an der das letzte ' Zeichen normalerweise stehen würde. Declare Sub MessageAlert Lib "Hd1:EineWarnung" Alias "COD _ $EineWarnung" (ByVal N As Integer)