Visual Basic 6 - immagine

ho fatto come mi hai indirizzato ma non va... sicuramente sono io che sbaglio qualcosa...
non so piu come risolvere....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
' 48-57 keycode dei numeri sulla TASTIERA, 96-105 keycode del tastierino numer
Case 48 To 57
TastoGiu KeyCode - 48 ' il risultato è da 0 a 9 che sono gli indici dei number
Case 96 To 105
TastoGiu KeyCode - 96
Case 43 ' +
TastoGiu 1
Case 45 ' -
TastoGiu 3
Case 47 '/
TastoGiu 4
Case 42 ' *
TastoGiu 2
Case 13 ' =
TastoGiu 0
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
' 48-57 keycode dei numeri sulla TASTIERA, 96-105 keycode del tastierino numer
Case 48 To 57
TastoGiu KeyCode - 48 ' il risultato è da 0 a 9 che sono gli indici dei number
Case 96 To 105
TastoGiu KeyCode - 96
Case 43 ' +
TastoGiu 1
Case 45 ' -
TastoGiu 3
Case 47 '/
TastoGiu 4
Case 42 ' *
TastoGiu 2
Case 13 ' =
TastoGiu 0
End Select
End Sub
Private Sub operator_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
TastoGiu Index
End Sub
Private Sub operator_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
TastoSu Index
End Sub
Private Sub TastoGiu(Index As Integer)
operator(Index).Picture = Imagegiu(Index).Picture
End Sub
Private Sub TastoSu(Index As Integer)
operator(Index).Picture = Imagesu(Index).Picture
End Sub

Ueh, guarda che se continui così mi fai

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
     ' 48-57 keycode dei numeri sulla TASTIERA, 96-105 keycode del tastierino numer
     Case 48 To 57
         TastoGiu KeyCode - 48 ' il risultato è da 0 a 9 che sono gli indici dei number
     Case 96 To 105
         TastoGiu KeyCode - 96
     Case 43 ' +
         TastoGiuOperatore 1
     Case 45 ' -
         TastoGiuOperatore 3
     Case 47 '/
    	 TastoGiuOperatore 4
     Case 42 ' *
         TastoGiuOperatore 2
    Case 13 ' =
         TastoGiuOperatore 0
  End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
     ' 48-57 keycode dei numeri sulla TASTIERA, 96-105 keycode del tastierino numer
     Case 48 To 57
         TastoSu KeyCode - 48 ' il risultato è da 0 a 9 che sono gli indici dei number
     Case 96 To 105
         TastoSu KeyCode - 96
     Case 43 ' +
    	 TastoSuOperatore 1
     Case 45 ' -
         TastoSuOperatore 3
     Case 47 '/
         TastoSuOperatore 4
     Case 42 ' *
         TastoSuOperatore 2
    Case 13 ' =
         TastoSuOperatore 0
  End Select
End Sub

Private Sub operator_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    TastoGiuOperatore Index
End Sub
Private Sub operator_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    TastoSuOperatore Index
End Sub
Private Sub TastoGiuOperatore(Index As Integer)
    operator(Index).Picture = ImageGiuOperatore(Index).Picture
End Sub
Private Sub TastoSuOperatore(Index As Integer)
   operator(Index).Picture = ImageSuOperatore(Index).Picture
End Sub 

Continuano ad esistere

Private Sub Number_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    TastoGiu Index
End Sub
Private Sub Number_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    TastoSu Index
End Sub
Private Sub TastoGiu(Index As Integer)
    Number(Index).Picture = ImageGiu(Index).Picture
End Sub
Private Sub TastoSu(Index As Integer)
    Number(Index).Picture = ImageSu(Index).Picture
End Sub

Dopo questo riposati fino a domani perchè anch'io sono fuso.

scusami se sono pesante l'avevo scritto in quel modo perche' avevo fatto la prova pulendo tutto quindi togliendo i number e lasciando solo gli operatori per provare a vedere se si schiacciavano e cosi togliendo tutto il resto ero sicuro di non sbagliare infatti come l'avevo scritto era giusto solo il keyup dovevo mettere su invece di giu per il resto era giusto pero non funziona lo stesso... scusami grazie ancora a domani....

Ciao Alfonso rieccomi forse ti 6 stufato di me... ho provato in vari modi ma non riesco
ad arrivarci mi dispiace disturbarti pero' vedo che sei l'unico ad aiutarmi ed anche parecchio competente ormai mi sono intrippato ed vorrei completare questo progetto... se non e troppo disturbo per te te ne sarei grato....

Ciao Alfonso rieccomi forse ti 6 stufato di me... ho provato in vari modi ma non riesco
ad arrivarci mi dispiace disturbarti pero' vedo che sei l'unico ad aiutarmi ed anche parecchio competente ormai mi sono intrippato ed vorrei completare questo progetto... se non e troppo disturbo per te te ne sarei grato....

Ciao Alfonso rieccomi forse ti 6 stufato di me... ho provato in vari modi ma non riesco
ad arrivarci mi dispiace disturbarti pero' vedo che sei l'unico ad aiutarmi ed anche parecchio competente ormai mi sono intrippato ed vorrei completare questo progetto... se non e troppo disturbo per te te ne sarei grato....

Figurati, però a questo punto allega il progetto in formato .zip, perchè ormai è totalmente differente da quello originale che ho, e non sono in grado di ricostruire tutte le modifiche.
Comunque, considerando da come si era partiti e visto il punto a cui siamo arrivati, dopo aver risolto i problemi, ti proporrò un'altra soluzione.

Ok speriamo che vada... grazie ancora...