Erro ao Programar Barra de ferramentas no VB6

[Fabio Baroni]

Pessoal,

Estou começando a aprender a programar em VB e estou encontrando uma dificuldade com a Barra de Ferramentas quando criamos em um formulário.

- Adicionei a ImageList e associei a figura com um icone qualquer, e seu index é 1, só para teste. Conforme a tela abaixo

- Adicionei um ToolBar e configurei conforme as telas abaixo para ele associar ao index 1 do botão que adicionei

NOTA: Não sei se isto tem haver, quando entrei nessa tela estava tudo desabilitado, tive que clicar no Insert Button para fazer a associaçao. Fiquei na duvida pois achei que ele deveria fazer a associacao automatica e aparecer nesta tela.

Realizei a programaçao do botão para sair com o seguinte codigo. Pois tenho uma subrotina mnu_Sair

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Index = 1

mnu_Sair_Click

End If

End Sub

Coloquei para rodar e ao clicar no Botão aparece o erro abaixo

Quando tiro o IF e deixo só a subrotina , ele fecha o programa. O problema que esta acontecendo é na associacao do index 1 para sair.

já fiz varios testes colocando outros botoes e associando e não funciona.

alguém pode me ajudar a dizer o que esta acontecendo , onde eu estou errando ??

Grato pela ajuda pessoal.

[kuroi]

não é porque faltou o Then na linha do If??

[Fabio Baroni]

É isso mesmo, funcionou !!

Copiei e colei de uma apostila que estou estudando e nem me deparei com a falta do Then.

Gostei desse forum, Muito bom....

Valeu pela ajuda.

[Douglas Resende]

Dica foi bem útil.

tinha me esquecido do 'Then' no final e do 'End If'

Também estou seguindo uma apostila, e nos passos quando mostra o cod, é mostrado sem o 'Then' e sem o 'End If'.

Agora, sim, deu certinho.