come impostare una toolbar

[Marcoski]

Ciao ragazzi,
Ho un piccolo problema.
Non riesco ad impostare una toolbar ecco il codice che ho messo nel
form_load()
Dim imgX As ListImage

' Carica immagini nel controllo ImageList.
Set imgX = ImageList1.ListImages. _
Add(, "apri", LoadPicture("E:\Programmazione\VB\luisa\mod\img\new.bmp"))
Set imgX = ImageList1.ListImages. _
Add(, "salva",
LoadPicture("E:\Programmazione\VB\luisa\mod\img\exit.jpg"))
Toolbar1.ImageList = ImageList1

' Crea una variabile oggetto per Toolbar.
Dim btnX As Button
' Aggiunge oggetti Button a un insieme Buttons utilizzando il
' metodo Add. Dopo aver creato ciascun pulsante, imposta le
' proprietà Description e ToolTipText.
Toolbar1.Buttons.Add , , , tbrSeparator
Set btnX = Toolbar1.Buttons.Add(, "apri", , tbrDefault, "apri")
btnX.ToolTipText = "Apri file"
btnX.Description = btnX.ToolTipText
Set btnX = Toolbar1.Buttons.Add(, "salva", , tbrDefault, "salva")
btnX.ToolTipText = "Salva file"
btnX.Description = btnX.ToolTipText
Set btnX = Toolbar1.Buttons.Add(, , , tbrSeparator)

' Il pulsante successivo ha stile PlaceHolder. Su questo
' pulsante verrà collocato un controllo ComboBox.
Set btnX = Toolbar1.Buttons.Add(, "combinata1", , tbrPlaceholder)
btnX.Width = 1500 ' Larghezza del segnaposto sufficiente per
' la casella combinata.

Quando provo ad eseguire il programma mi dice che è necessario l'oggetto, e
non riesco a capire che cacchio di oggetto è necessario, anche perchè la
toolbar l'ho disegnata e i nomi sono giusti.

Spero possiate aiutarmi perchè non so più dove cacchio sbattere la testa.
Grazie
Cya

[Marcoski]

Ehm scusate ho sbagliato NG pensavo di stare nel NG di visualbasic.
Eh i pèostumi del sabato sera a volte fanno male.
:)

Ancora sorry

"Marcoski" <marc...@blizzyitalia.com> ha scritto nel messaggio
news:rs_K9.34053$t_1.3...@tornado.fastwebnet.it...