Hallo Paulsche,
auf die schnelle sehe ich hier zwei Ansatzpunkte:
1. Die Zeilen
For i = 0 To 9 ' Eigene Tastatur Events
AddEvent ("BTNtastatur0" & i,Click,"Tastatur") ' gedrückter Button 0-9 an SUB "Tastatur" weitergeben
Next
AddEvent ("BTNtastaturKomma",Click,"Tastatur") ' gedrückter Button "," an SUB "Tastatur" weitergeben
AddEvent ("BTNtastaturBackspace",Click,"Tastatur") ' gedrückter Button "<" an SUB "Tastatur" weitergeben
aus der Sub BTNtanken_Click nach AppStart verlagern, damit der Code nur einmal aufgerufen wird.
Ansonsten hängt jeder Tanken-Klick weitere Klick-Events an die Tastaturbuttons, da kommt die Anwendung irgendwann aufgrund der vielen (gleichartigen) Evants zwangsläufig durcheinander.
2. JOTHA hat in seinem Goldkauf-Prog einfache Buttons verwendet während Du ImageButtons definiert hast. Ich habe es jetzt nicht selbst ausprobiert, aber da bei ImageButtons wesentlich mehr passiert könnte hier ein Performancegewinn möglich sein, zumal Du zumindest in der bisherigen Version den Buttons keine Images zugeordnet hast.
Gruß
specci48