Laatste punt wissen met rechter muisknop

[satriano17]

Met ondestande code kan ik tot 10 punten (shapes) tekenen op een image met linker muisknop. Elk klik een punt.
Dan met rechter muisknop kan ik (alle) de punten wissen.
Maar ik kan zo dus alle punten wissen in een keer.
Hoe de laatste deel van de code wijzigen om enkel de laatste getekend punt te wissen? Dus een soort van Undo voor de laatste punt?
Bedankt

Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer

    Select Case Button
      Case 1      'Linker muisknop punten tekenen
        If teller < 10 Then
          
          teller = teller + 1
          With Shape1(teller - 1)
            .Left = Image1.Left + X - .Width \ 2     '<=====
            .Top = Image1.Top + Y - .Height \ 2      '<=====
            .Visible = True
          End With
        End If
       
      Case 2      'Rechter muisknop alle punten wissen
       
        For i = 0 To teller - 1
          Shape1(i).Visible = False
        Next
        teller = 0
        
     End Select
   
End Sub

 

[alphamax]

Shape1(teller).Visible = False
teller = teller -1

Ik ben vandaag een beetje lui, heb geen zin om jouw projectje helemaal na te bouwen.

 

[satriano17]

jammer, Alphamax, maar niet opgelost.

Geen error, maar, zoals vroeger, worden ALLE shapes gewist en niet enkel het laatste.
Zoals gezegd ik wens enkel het laatste shape wissen.

 

[alphamax]

Ik ben vandaag een beetje lui, heb geen zin om jouw projectje helemaal na te bouwen.

Hint, Hint, Hint