Aja... pero trata de resolver el porq te arroja un error...
Código:
Timer1.Enabled = True
Timer1.Interval = 0
label88.Caption = 0
Private Sub Timer1_timer()
label88.Caption = label88.Caption + 1
If label88.Caption = 1 Then
CERRAR VENTANAS
End If
If label88.Caption = 3 Then
Shell (Text1.Text & " -game cstrike - nomaster - console")
End If
If label88.Caption = 5 Then
Killapp "hl.exe"
End If
If label88.Caption = 7 Then
label88.Caption = 0
Timer1.Enabled = False
End If
End Sub
Aca estas usando el label88 (q no existe) como contador... y estas asignando el intervalo del timer a 0... Por eso te puse este codigo:
Código:
Dim xseg As Integer
Private Sub Form_Load()
xseg = 0
Timer1.Enabled = True
Timer1.Interval = 1000 'El intervalo de 1 seg
End Sub
Private Sub Timer1_timer()
xseg = xseg + 1
If xseg = 1 Then ACA SE CIERRAN TODAS LAS VENTANAS QUE ESTEN ABIERTAS
If xseg = 3 Then ACA SE EJECUTA EL HL.EXE
If xseg = 5 Then ACA SE CIERRA EL HL.EXE
If xseg = 7 Then
xseg = 0
Timer1.Enabled = False
End If
End Sub
Aca el contador es xseg y el intervalo es de 1000 (1 segundo) y las condiciones las especificas de acuerdo al valor del contador...
Ahora te toca resolver el problema...