Duda para Visual Basic 6.0

[Mickel]

No te entiendo del todo asi que disculpa si esta no es la solucion que buscabas

Private Sub Image1_Click()
select case image1.tag
case "M"
'ha cargado sigui.gif, enlaza
case "P"
'ha cargado sigui01.gif, enlaza
case else
'ha cargado nada.gif, enlaza
end select
End Sub

Private Sub MBM_Click()
image1.tag="M"
Image1.Picture = LoadPicture("C:\Vbasic6\Cap1\sigui.gif")
End Sub

Private Sub Proveedor1_Click()
image1.tag="P"
Image1.Picture = LoadPicture("C:\Vbasic6\Cap1\sigui01.gif")
End Sub

Private Sub Reset_Click()
image1.tag=""
Image1.Picture = LoadPicture("C:\Vbasic6\Cap1\nada.gif")
End Sub