Modifica così il codice di Vinsent e risolvi ... (pensa che si sposta anche il form!)

codice:
Sub btn_onClick(ecc)
  Dim d As Integer

  Label.Text = "qualcosa"

  For d=1 to 50  
    Application.DoEvents()
    Sleep(20)
  Next d

  Label.Text = "qualcosa2"
End Sub
[/QUOTE]