Programming Reference Manual

Object Module

 
Syntax
 
Description
An object module implements an ActiveX Automation object.
•   It has a set of Public procedures accessible from other macros and modules.
•   These public symbols are accessed via the name of the object module or an object variable.
•   Public Consts, Types, arrays, fixed length strings are not allowed.
•   An object module is similar to a class module except that one instance is automatically created. That instance has the same name as the object module's name.
•   To create additional instances use:
   Dim Obj As objectname
   Set Obj = New objectname
 
See Also
Class Module, Code Module, Uses.
Example
 
'A.BAS
'#Uses "System.OBM"
Sub Main
    Debug.Print Hex(System.Version)
End Sub
 
'System.OBM
'File|New Module|Object Module
'Edit|Properties|Name=System
Option Explicit
Declare Function GetVersion16 Lib "Kernel" _
    Alias "GetVersion" () As Long
Declare Function GetVersion32 Lib "Kernel32" _
    Alias "GetVersion" () As Long
 
Public Function Version() As Long
    If Win16 Then
        Version = GetVersion16
    Else
        Version = GetVersion32
    End If
End Function