Private Function existe(ind As Integer) As Boolean For Each c In Command1 If c.Index = ind Then existe = True Exit Function End If Next End Function
If Not existe(3) Then '... on le crée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionReste le problème signalé que le bouton créé n'est pas visible
Load Spot(1) Spot(1).Left = X0 Spot(1).Top = Y0 Spot(1).Visible = Truemais le bouton n'est toujours pas visible !