msgbox "EH"msgbox "SOS G@Y!"
Option Explicit Private Sub Command1_Click() MsgBox "EH" If Check1.Value = 1 Then MsgBox "SOS G@Y!" End IfEnd Sub
'Le establecemos un valor para el máximoProgressBar1.Max = 50500 For i = 0 To ProgressBar1.Max ' Valor actual del Progressbar ProgressBar1.Value = i ' Visualizamos el porcentaje en el Label Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %" DoEvents Next