Dim palabras(0 To 10) As String
Dim definiciones(0 To 10) As String
 
Private Sub Command1_Click()


Dim_palabras(0) = "a-su"
Dim_palabras(1) = "Aa"
Dim_palabras(2) = "Abayo"
Dim_palabras(3) = "Abekku"
Dim_palabras(4) = "Abunai"
Dim_palabras(5) = "Ace o Nerea"
Dim_palabras(6) = "Achi Kochi"
Dim_palabras(7) = "Aenaisago"
Dim_palabras(8) = "Agemasu"
Dim_palabras(9) = "Ah souka"




Dim_definiciones(0) = "Dia de la Tierra (22 de Abril)."
Dim_definiciones(1) = "Ah, Er. "
Dim_definiciones(2) = "Es a 'sayonara' como 'kisama' es a 'anata'... En términos más simples, 'abayo' es una forma muy poco cortés de despedirse de alguien."
Dim_definiciones(3) = "Juntos (con alguien)."
Dim_definiciones(4) = "Peligro, Peligroso, ¡Cuidado!."
Dim_definiciones(5) = "Raqueta de oro."
Dim_definiciones(6) = "Aquí y alla"
Dim_definiciones(7) = "Muerte Tragica. "
Dim_definiciones(8) = "Dar."
Dim_definiciones(9) = "Ah correcto."
 
Dim i As Integer
Dim palabras As String

Dim mensaje As Variant
If Text1 = "" Then
mensaje = MsgBox("escrive una palabra", vbExclamation, "te has oblidado de escribir la palabra")
End If

Next

mensaje = MsgBox("esta palabra no esxiste", vbOKOnly, "te has oblidado de escribir la palabra")


palabras = Text1.Text
For i = 0 To 10

If palabra = palabras(i) Then
Text2.Text = definiciones(i)
Exit Sub
End If
 
 
For i = 0 To 10
    If InStr(LCase(definiciones(i)), LCase(Text1.Text)) Then
        MsgBox palabras(i)
    End If
Next
End Sub

Nijizuishou: Cristal Arco Iris. Son 7 cristales con los colores del arcoiris que al reunirse con la lagrima de Serena forman el Cristal de Plata, ocultos en el interior de siete humanos que son la reencarnacion de los siete demonios más poderosos del negaverso.

kuando le doy a iniziar aplicacion me se pone esto :Private SkinOb As New SKINCRAFTERLib.SCSkin2 diciendo que error de compilacion


Private Sub Form_Initialize()

[glow=red,2,300]SkinOb.InitLicenKeys("SKINCRAFTER","SKINCRAFTER.COM",
"esupport@skincrafter.com","DEMOSKINCRAFTERLICENCE")[/glow] esto se me pone rojo
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1

End Sub

Private Sub Form_Load()
SkinOb.LoadSkinFromFile App.Path & "lugar onde tengo el archivo"
SkinOb.ApplySkin
End Sub