'Beispiel: Verwendung der Freeware DLL :Regist10.dll: DLL's oder OCX's registrieren 'Hinweis : Kopieren Sie die Datei Regist10.DLL in Ihr Systemverzeichnis. ' lt. Autor der DLL arbeitet diese DLL unter ' a.) W95 ' b.) W98 ' c.) NT 'Zu Testzwecken wird in diesem Beispiel die [dll-unrar.dll] verwendet. 'Verwenden Sie zum Testen keine .dll die das System benoetigt. 'Um das Systemverzeichnis oder Windows Verzeichnis zu ermitteln verwenden Sie 'bitte die dafuer auf www.Visual-Basic5.de vorgesehenen Beispiele. Private Declare Function RegisterDLL Lib "Regist10.dll" _ Alias "REGISTERDLL" _ (ByVal DllPath As String, _ bRegister As Boolean) _ As Boolean Dim sPath As String Private Sub sRegisterActiveXServer(ByVal sPath As String) Dim blRet As Boolean blRet = RegisterDLL(sPath, True) End Sub Private Sub sUnRegisterActiveXServer(ByVal sPath As String) Dim blRet As Boolean blRet = RegisterDLL(sPath, False) End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case Is = 0: sRegisterActiveXServer sPath Case Is = 1: sUnRegisterActiveXServer sPath Case Is = 2: Unload Me End Select End Sub Private Sub Form_Load() sPath = "c:\win98\system\unrar.dll" End Sub