Código PHP:
Private Sub aceptar_Click()
For I = 1 To Len(palabra.Text)
Label2(I) = Mid(palabra.Text, I, 1)
Next
aceptar.Enabled = False
Label2(1).Visible = True
Label2(I - 1).Visible = True
For J = 1 To 28
Command2(J).Enabled = True
Next
End Sub
Private Sub Command2_Click(Index As Integer)
For I = 2 To (Len(palabra.Text) - 1)
Next
End Sub
Private Sub Command3_Click()
If Text2.Text = "" Then
MsgBox "Debe ingresar una palabra", vbCritical, "Error"
Else
If palabra.Text = Text2.Text Then
MsgBox "Gano", vbInformation, "Felicitaciones"
Else
MsgBox "Perdiste", vbCritical, "Lo Siento"
End If
End If
End Sub
Private Sub palabra_Change()
If palabra.Text <> "" Then
aceptar.Enabled = True
End If
End Sub
Private Sub Command5_Click()
Unload Me
End Sub