Option Explicit
Dim myPic(19) As StdPicture

Private Sub Form_Load()
  Set myPic(0).Picture = LoadPicture("bild1.bmp")
  Set myPic(1).Picture = LoadPicture("bild2.bmp")
  ...
End Sub

' Anzeigen
Set Picture1(0).Picture = myPic(0)
 
' Ausblenden
Set Picture1(0).Picture = LoadPicture()

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de