AJAJAJAJJAJA 
Al parecer me sigues la pista simorg...
Gracias de nuevo

Al parecer me sigues la pista simorg...

Gracias de nuevo
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ú

Cita de: Leo Gutiérrez. en 18 Mayo 2010, 23:48 PMJAJAJAJA
7.Cita de: *PsYkE1* en 18 Mayo 2010, 23:47 PM
Pues eso:
¿Cuantas horas dormis al dia?
PD: Yo 4...
¿Y?, ¿son competencias a ver quien duerme menos?





... Vaya ciego que estoy... 

Status(0).BackColor = vbBlack ' El 0 lo sustituyes por el Index de tu Label





Private Sub Command1_Click()
Dim x As Integer
Dim Det() As String
Dim strBuscar As String
Det = Split("dedo,saco,nariz,diamante,rey", ",")
strBuscar = "diamante"
For x = LBound(Det()) To UBound(Det())
If Det(x) = strBuscar Then MsgBox "El String """ & strBuscar & """ está en el elemento " & x _
& " de mi Array", vbInformation, "*PsYkE1*"
Next
End Sub


