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?
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