Agregar esto al Frmmain:
1 Timer2 Checkbox
Propiedades del timer:
Nombre: El que quieran
Enabled: True
Intervalo: 10
Propiedades del Checkbox1:
Nombre: Checkred
Propiedades del Checkbox2:
Nombre: Checkblues
Ahora los códigos de cada cosa:
Timer:
- Código:
If UserMaxHP > UserMinHP And chkreds.Value = 1 Then
WriteUseItem 1
End If
If UserMaxMAN > UserMinMAN And chkblues.Value = 1 Then
WriteUseItem 2
End If
FIN