[AccessD] Abstract question

I forgot this part ...

'-----Module1-----
Public Function SSInit(ByRef rfrm As Form)
    Dim obj As New clsSpreadSheet
    obj.Init rfrm
End Function

Public Sub AddSpreadSheets()
    Dim frm1 As New Form_Spreadsheet
    Dim frm2 As New Form_Spreadsheet
    Dim frm3 As New Form_Spreadsheet
    With frm1
        .Visible = True
        DoCmd.MoveSize , 0
    End With
    With frm2
        .Visible = True
        DoCmd.MoveSize , 500
    End With
    With frm3
        .Visible = True
        DoCmd.MoveSize , 1000
    End With
End Sub

Sub OpenSpreadSheets(NumberOfSS As Integer)
    Dim i As Integer, f As Form, h As Long, r As Integer, d As Integer, M As 
Integer
    r = 100
    For i = 1 To NumberOfSS
        r = r + 500
        Set f = New Form_Spreadsheet
        With f
            d = M + f.Section(0).Properties("Height")
            .Caption = .Name & i
            .Visible = True
            h = .hwnd
            DoCmd.MoveSize , d
        End With
        d = d + d
    Next
End Sub

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com