Load Control Array

Selain dengan langsung membuat control secara array, ada satu tips bagaimana kita menambahkan secara otomatis. Kita cukup membuat satu object saja, selanjutnya kita tinggal menampilkan untuk object berikutnya. Langkah-langkahnya sebagai berikut :
1. Buat satu Form dan satu object (Misalnya CommandButton dengan Nama Command1
2. Rubah property CommandButton dengan Index = 0
3. Tambahkan Syntax Berikut ini :

Private Sub Form_Load()
    Dim intIndex    As Integer
    Dim dblLeft     As Double
    For intIndex = 0 To 2
        If intIndex <> 0 Then Load Command1(intIndex)
        Command1(intIndex).Left = (1500 * intIndex)
        Command1(intIndex).Visible = True
        Command1(intIndex).Caption = intIndex
    Next intIndex
End Sub

Jika kita jalankan, maka kita akan melihat tiga object cumond Button.