[VB6] Disegnare cerchi su picture ed unire ad altra

[erosmax]

Salve.Avrei bisogno di un aiuto.
Se disegno dei cerchi su di una Picturebox, quando la vado a salvare, questi non appaiono.
Avrei bisogno di unire la Picturebox con i cerchi, ad un'altra con un immagine e che, la picture con il disegno guida (Picture2), eliminasse il disegno guida ma lasciasse i cerchi che andranno uniti all'immagine originale (Picture1), una volta ingranditi..
Ho provato a farlo ma, come detto, non mi unisce i cerchi mostrati a video e non riesco a togliere l'immagine (se utilizzo Picture2.Picture = Nothing, questa si cancella, ma poi ho errori nel riportare l'immagine grande (in quanto questa è 0).
ecco una parte del codice:

Private Sub Label1_Click()
If Label1.Caption = "OK" Then
    Picture2.Cls
    For i = 0 To 55
        buco(i).Visible = True
        buco(100 + i).Visible = True
    Next i
    Label1.Caption = "RESET"
    Frame1.Enabled = False
    'Cancello l'immagine
   ' Picture2.Picture = Nothing
colore1 = buco(0).FillColor
Picture2.FillStyle = 0
    'Disegno i cerchi
    For k = 0 To 55
    selez(k).Visible = False
    selez(k + 100).Visible = False
              colore1 = buco(k).FillColor
              colore2 = buco(k + 100).FillColor
              If colore1 <> 16777215 Then buco(k).Visible = False: Picture2.Circle (buco(k).Left, buco(k).Top), 120, vbBlack: Picture2.FillColor = colore1: Picture2.FillStyle = 0
              
              If colore2 <> 16777215 Then buco(k + 100).Visible = False: Picture2.Circle (buco(k + 100).Left, buco(k + 100).Top), 120, vbBlack:  Picture2.FillColor = colore2: Picture2.FillStyle = 0
        buco(k).Visible = False
        buco(k + 100).Visible = False
    Next k
    Line1.Visible = False
    Line2.Visible = False
    'riporto immagine grande
     Picture1.AutoRedraw = True
  
    Picture1.PaintPicture Picture2.Picture, _        
    Picture1.ScaleLeft,Picture1.ScaleTop, _
    Picture1.ScaleWidth, Picture1.ScaleHeight, _
    Picture2.ScaleLeft, Picture2.ScaleTop, _
    Picture2.ScaleWidth, Picture2.ScaleHeight
    Picture1.Picture = Picture1.Image
    
    'Unisco immagini
    Picture1.PaintPicture Picture2.Picture, 0, 0
    SavePicture Picture1, App.Path & "\SchemaOK.bmp"
Else
    For i = 0 To 55
        buco(i).FillColor = vbWhite
        buco(100 + i).FillColor = vbWhite
        selez(i).Enabled = True
        selez(100 + i).Enabled = True
    Next i
    For i = 0 To 13
             colore(i).Visible = True
             colore(i).Enabled = True
             colore(i).FontBold = False
    Next i
    Frame1.Enabled = True
    Label1.Caption = "OK"
End If