Dim NewElement As Integer (membuat variable / elemen baru sebagai integer)

Private Sub Form_Click (membuat bentuk klik yang bisa diinput gambar) ()
Load Image1(NewElement)
Image1(NewElement).Visible = True
  (menentukan letak gambar)'Image1(NewElement).Top = Image1(NewElement - 1).Top
  'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
  ( Menambah komponen dengan berurutan satu persatu)'NewElement = NewElement + 1


'==================================================

  (untuk mengatur tempat ackan dengan kode)'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd (menentukan letak acakan))
Image1(NewElement).Left = CInt(Form1.Width * Rnd (menentukan letak acakan))
NewElement = NewElement + 1 ( Menambah komponen dengan berurutan satu persatu)  
'==================================================
"

End Sub

Private Sub Form_Load (menampilkan pesan sesuai dengan properties yang di input melalui komponen yang kita buat)()
NewElement = 1 (jumlah komponen yang ditambahkan secara berurutan)
End Sub (mengakhiri)