🚀 go-pugleaf

Hi,


Op een formulier dien ik een aantal control arrays te plaatsen.  Het aantal
is in theorie ongelimiteerd.  De buttons en text arrays worden geschikt van
onderen naar beneden.

Hoe kan ik nu de buttons zien dat buiten mijn scherm komen te liggen. .
Blijkbaar worden de buttons buiten het scherm wel gecreeerd, maar er komen
geen scrollbars op het formulier te voorschijn ...
Ik vindt geen eigenschap zoals scrollbars terug  bij het formulier

Graag idee�n om dit op te vangen !!!


THX.


---------------------------  formulier
button (0)
button (1)
button (2)
button (3)
button (4)
----------------------------
button (5)
button (6)


programma  :

Option Explicit
Dim bytteller As Byte
Dim bytlus As Byte
Private Sub cmdtest_Click(Index As Integer)
If Index = 0 Then
    ' voeg telkens een button bij
    bytteller = bytteller + 1
    Load cmdtest(bytteller)
    cmdtest(bytteller).Top = cmdtest(bytteller - 1).Top +
cmdtest(bytteller).Height
    cmdtest(bytteller).Caption = bytteller
    cmdtest(bytteller).Visible = True
    frm_12_Personeelsplanning.Height = 5000 + (cmdtest(bytteller).Height *
bytteller)
Else
    ' verwijder een button
    For bytlus = 1 To bytteller
        Unload cmdtest(bytlus)
    Next
    bytteller = bytteller - 1
    For bytlus = 1 To bytteller
        Load cmdtest(bytlus)
    cmdtest(bytlus).Top = cmdtest(bytlus - 1).Top + cmdtest(bytlus).Height
    cmdtest(bytlus).Caption = bytlus
    cmdtest(bytlus).Visible = True
    frm_12_Personeelsplanning.Height = 5000 + (cmdtest(bytlus).Height *
bytteller)
    Next
End If
End Sub

Private Sub Form_Load()
bytteller = 0

End Sub