label lampeggiante

Option Explicit
Dim xTime As Variant                              '<= aggiunta

Sub prova()

    UserForm1.Show
    
End Sub

Sub lampeggia()                                   '<= aggiunta

    xTime = Now + TimeSerial(0, 0, 1)
    UserForm1.Label1.Visible = Not UserForm1.Label1.Visible
    Application.OnTime xTime, "lampeggia", , True
    
End Sub

Sub interrompi()                                  '<= aggiunta

    On Error Resume Next
    Application.OnTime xTime, "lampeggia", , False
    
End Sub

Private Sub UserForm_Initialize()

    Me.Label1.Caption = Environ("UserName") & " inserisci il numero di righe da eliminare"
    Call lampeggia                                '<= aggiunta
    
End Sub

Private Sub CommandButton2_Click()

    Call interrompi                               '<= aggiunta
    Unload Me
    End
    
End Sub

Private Sub CommandButton1_Click()

    If Me.ComboBox1.BoundValue = vbNullString Then
    End If
    Call interrompi                               '<= aggiunta
    Unload Me
    
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode <> 1 Then Cancel = True
    Me.Caption = "Chiudi con gli appositi pulsanti !"
    
End Sub