Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc

[darkhack]

coloca un boton, un timer y un label en tu formulario. En la propiedad enabled del timer ponla en falso y al intervalo ponle 1000 para usar segundos.
Borra el contenido de la propiedad caption del label.
escribe este codigo en tu formulario

Dim x

Private Sub Command1_Click()
Timer1.Enabled = 1
End Sub

Private Sub Form_Load()
x = 30
End Sub

Private Sub Timer1_Timer()
If x >= 0 Then
Label1.Caption = "se activara en :" & x & " segundos"
x = x - 1
End If
End Sub