[vb6] Meerder Optionbuttons-arrays toevoegen

[Verwijderd]

Ik heb een optionbutton en wil dmv op een knop te drukken er enkele buttons onder kunnen voegen, ik heb devolgende code gemaakt om de optionbuttons te kunnen aanmaken maar je kunt ze niet zien?

Visual Basic:

Dim intmax As Integer

Private Sub Command1_Click()
     intmax = intmax + 1
     Load Option(intmax)
     Option(intmax).Top = Option(intmax - 1).Top + 30
     Option(intmax).Left = Option(0).Left
     Option(intmax).Visible = true
     Me.Refresh
End Sub

Bedankt, het probleem is opgelost De code hierboven werkt.

[ Voor 16% gewijzigd door Verwijderd op 24-03-2003 15:31 ]

[Verwijderd]

Voeg de regel Option(intmax).Visible = True toe boven Me.Refresh. Dynamisch gecreëerde objecten zijn initieel namelijk invisible.