ok, pues muchas gracias a todos a ver si ecneuntro el tema^^
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim Tips As Integer 'Si no es entero(integer) no funcionara
Private Sub Form_Load()
Randomize
Tips = Rnd * 5 'Generas un numero aleatorio
End Sub
Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD
Select Case Tips
Case 0
Text1 = "Hoy es el dia para suicidarse"
Case 1
Text1 = "Esta de moda martillarse los dedos ;)"
Case 2
Text1 = "No tomes viagra"
Case 3
Text1 = "Chuchuca!"
Case 4
Text1 = "Tu novia no te desea... puaaj"
Case 5
Text1 = "Muerdete la lengua... (8)"
Case 6
Text1 = "lo que haya escrito en el text1"
End Select
End Sub
Private Sub Command1_Click()
MsgBox "lol" & Text1.Text, , "titulo"
End Sub