diff options
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
| -rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 02c9c170a808..f4b749ef6128 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -17,6 +17,7 @@ REM ---------------------------------------------------------------------------- Private _Type As String ' Must be FORM Private _This As Object ' Workaround for absence of This builtin function +Private _Parent As Object Private _Name As String Private _ParentType As String Private _ParentComponent As Object @@ -33,6 +34,7 @@ REM ---------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJOPTIONGROUP Set _This = Nothing + Set _Parent = Nothing _Name = "" _ParentType = "" _ParentComponent = Nothing @@ -137,6 +139,7 @@ Dim oCounter As Object ' Determine exact name Set ocControl = New Control Set ocControl._This = ocControl + Set ocControl._Parent = _This ocControl._ParentType = CTLPARENTISGROUP ocControl._Shortcut = "" |