Visual Basic 6 - immagine

Nella form allegata:
ci sono due controlli Immagine con dentro due icone (una verde e una rossa)
Il tasto nove ha come Picture l'icona verde già caricata.
Lancia il programma.
Se clicchi sul tasto nove l'icona diventa rossa?
Se rilasci il pulsante del mouse ritorna verde?

non c'era nessuna icona e nessuna immagine perche' quando ho aperto il file con visula basic mi dava errore log cmq ho messo le immagini dei miei numeri fin qui ci siamo..
ora ti elenco i problemi da risolvere ancora, nel senso: allora 1° problema se io metto un bitmap del numero ovviamente per come ho fatto, devo calcellare il caption del command perche' se no la vedo a meta' se cancello il caption quando digito il numero ovviamente nel display non appare niente come risolvo????
2 °problema tutto questo vale per un tasto come faccio per gli altri tasti nel senso:
io nel tasto 9 ho caricato l'immagine col tasto 9 nell'otto immagine del tasto otto però se premo otto mi appare lo stesso l'immagine del tasto9 come risolvo????

Primo quesito: la routine considera Number(Index).Caption che hai tolto. Fai riferimento all'index del numero (che poi corrisponde effettivamente al numero)

Private Sub Number_Click(Index As Integer)

    If DecimalFlag Then
        'Readout = Readout + Number(Index).Caption
        Readout = Readout + CStr(Index)
    Else
        'Readout = Left(Readout, InStr(Readout, Format(0, ",")) - 1) + Number(Index).Caption + Format(0, ",")
        Readout = Left(Readout, InStr(Readout, Format(0, ",")) - 1) + CStr(Index) + Format(0, ",")
    End If

Secondo quesito:
Se non mostri il codice....

grazie ancora innanzi tutto.....
primo quesito risolto completamente.
per il secondo quesito non so' che codice mostrare non ho toccato niente la calcolatrice e tutta la' nel senso: io sul tasto 9 carico l'immagine col numero 9 sul tasto otto quella col numero 8 sul tasto 7 quella col numero 7 ecc.ecc. nei due controlli immagine che c'erano dove tu avevi icona rossa ed icona verde io ho messo immagine 9 tasto premuto e 9 tasto rilasciato ma per tutti gli altri tasti cosa devo fare????

Devi fare un array di ImageSu da 0 a 9 e un'altro di ImageGiu da 0 a 9
nell'ImageSu(0) ci metti la bitmap che rappresenta il tasto 0 su
nell'ImageSu(1) ci metti la bitmap che rappresenta il tasto 1 su .. e così via
nell'ImageGiu(0) ci metti la bitmap che rappresenta il tasto 0 giu, ecc...

Il codice rimane quello che ti ho allegato prima (riporto solo un pezzo)

Private Sub Number_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    TastoGiu Index
End Sub

Per costruire l'array dei controlli immagine:
posizionati col mouse sopra il controllo già presente nella form
Premi tasto destro e scegli copia
posizionati su un punto vuoto della form
premi tasto destro e scegli incolla
ti viene chiesto se creare un array di controlli. Rispondi sì
Il controllo originale ora ha l'index=0
Il nuovo controllo ha l'index = 1
Continua fino ad arrivare a index = 9 sia per ImageSu che per ImageGiu

Ora però sposto il mio sedere dalla sedia davanti al computer alla sedia davanti al piatto. Mi prendo una pausa

Come sempre grazie...
ho fatto quello che mi hai indicato pero' adesso quando premo un tasto ad es. 1
mi da errore nel
Private Sub TastoGiu(Index As Integer)
Number(Index).Picture = Imagegiu.Picture

End Sub
err. impossibile trovare il metodo o il membro dei dati?????

Se hai fatto gli array:

Number(Index).Picture = Imagegiu(index).Picture

fai le dovute modifiche per fare riferimento agli array delle picture.

Ti ringrazio per i consigli e suggerimenti che mi hai offerto tutto risolto!!!
grazie ciao... alla prossima..