Sub Class_Globals
Private page As ABMPage
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(MyPage As ABMPage)
page = MyPage
End Sub
public Sub oknotest As ABMContainer
Dim p As ABMContainer
p.Initialize(page, "test","")
p.AddRow(1,True,"","").AddCells12(12,"")
p.BuildGrid
Dim Sw As ABMSwitch
Sw.Initialize(page, "sw1","on","off",True,"")
p.Cell(1,1).AddComponent(Sw)
Return p
End Sub
Public Sub Switch As ABMSwitch
Dim Sw As ABMSwitch
Sw.Initialize(page, "sw1","on","off",True,"")
Return Sw
End Sub