Mensajes

Miren esto:


Bueno el tema es asiyo tengo un sensor conectado por el puerto paralelo a la pc. Pero bueno eso va mas alla. Por ahora lo que quiero simular es por ejemplo: yo active las opciones enviar mail y reproducir sonido, ahora lo q quiero simular y aui va mi pregunta como lo haria, es ante un evento por ejemplo hacer un random y cuando sale un 7 q me realice las 2 actividades q yo tilde, como en este caso. Osea q el programa me detecte q opciones active para poder realizarlas ante un eventual evento.

Lo q quiero hacer es tener la opcion AYUDA, arriba a la derecha de la aplicacion y q dentro de esta tenga varias opciones como: CONTENIDO, ACERCA DE....
Despues mas adelente les pido ayuda como hacer para q al clickear en una de estas me aparezca la pantalla correspondiente a c/u

LISTO SOLUCIONADA GRACIAS BYEEE

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

Listo gente ya lo solucione hice esto

If txtCC.Text <> "" Then
txtCC.Text = txtCC.Text & ", " & SMS(List1.ListIndex)
Else
txtCC.Text = SMS(List1.ListIndex)
End If

'SMS es un arreglo de las 5 capitales
Gracias a todos

Private Sub List1_Click()
If List1.ListIndex = 0 Then'Si se cliquea el 0 aparecera Argentina
Text1.Text = "Buenos Aires"
End If

If List1.ListIndex = 1 Then'Si se cliquea el 1 aparecera Brasilia
Text1.Text = "Brasilia"
End If
End Sub

No eso hace lo mismo q posteo X.Cyclop en su primer post. No me soluciona el problema

Mira te pongo un ejemplo de lo q quiero hacer:
ListBox
Argentina
Peru
Brasil

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

Ahora si clickeo en "Brasil"...me aparece en el mismo TextBox q antes:
Buenos Aires, Brasilia        'se agrego Brasilia y  una "," entre BA y Brasilia, q me sirve de separador.Por eso te puse q es como cuando queres enviar un mail en hotmail, y le vas dando click a los contactos q se lo queres enviar. Lo cambie por una "," porque con un ";" no anda

Bueno muchas gracias, ahora lo complico un poco mas
Supongamos tener todo como estaba, ahora bien a la hora de clickear en "Argentina", quiero q me aparezca en el TextBox "Buenos Aieres", cuando clickeo en "Brasil" q aparezca "Brasilia", etc

Y q tb si clickeo Argentina me aparece Buenos Aires y ahi voy al TextBox le pongo un ";" o no, y voy y clickeo Brasil y me aparece Brasilia a continuacion de Buenos Aires
Es una especie de agregar contactos de mails como en hotmail

[ListBox]

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