Salve a tutti, stò cercando disperatamente di rallentare una shape, mi spiego meglio.
Io ho questo codice:

codice:
Private Sub cmdballa_Click()
    Shape8.Visible = False
    Shape6.Visible = True
    Shape14.Visible = True
    Shape11.Visible = True
End Sub
ora quando mando in esecuzione il programma praticamente devo far' rallentare di qualche secondo solo la shape14 e dopo continuare l'esecuzione normalmente .
Ho provato ad inserire una procedura di rallentamento ma inutilmente perchè va a rallentare tutto il programma dall'inizio alla fine .
Questa è la procedura di rallentamento che uso:
codice:
Private Sub Rallenta()
    Dim pausa
    Dim controllo
    pausa = Timer + 1
    Do While controllo < pausa
        controllo = Timer
    Loop
End Sub
aspetto una vostra risposta , grazie in anticipo.