Como hago para q cuando ingreso una cadena de letras o numeros aparecen en el textbox "*" (asteriscos). Como cuando se ingresa el password en cualquier casilla de mail

Suponer q al apretar un CommandButton, aparece un label y diga q quedan 30, despues 29, despues 28, etc y asi hasta 0. Osea q vaya cambiando el numerito nada mas.
Ami se me ocurrio crear 30 label y q vayan apareciendo en secuencia. Pero me parece una burrada esa.
Como puedo hacer entonces q en un laberl mismo vaya haga el conteo.
Edito porque ya lo pude hacer funcionar pero le quiero agregar q cuando llegue a 0, la aplicacion se minimize, q aparezca al lado del reloj de windows.
El codigo fue este:
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

Lo que quiero es primero poner 5 elementos en un ListBox, y al clickear uno de ellos me aparezca en un TextBox.
Ej:
ListBox
Argentina
Peru
Brasil

Clickeo en "Argentina" entonces me aparece en un
TextBox
Argentina

La que quiero hacer en realidad es que un determinado .mp3 suene por 3 minutos por ejemplo.
El codigo de hacer sonar el mp3 ya lo tengo pero no se como funciona el TIMER, como anexarlo a esto para q dure X cantidad de tiempo

Lo que quiero hacer es que mande un mail el cual ya lo tengo todo programado, pero en vez de q lo mande cuando apreto SEND, que lo haga cuando le llega un dato. Como puedo simular esto???