Cita: Private Sub Form_Load()
xseg = 0
Timer1.Enabled = True
Timer1.Interval = 1000 'El intervalo de 1 seg
Label88.Caption = 0
End Sub
Private Sub Timer1_timer()
xseg = xseg + 1
Label88.Caption = xseg
If xseg = 1 Then
'ACA SE CIERRAN TODAS LAS VENTANAS QUE ESTEN ABIERTAS
End If
If xseg = 3 Then
Shell (Text1.Text & " -game cstrike - nomaster - console")
End If
If xseg = 5 Then
Killapp "hl.exe"
End If
If xseg = 7 Then
xseg = 0
Label88.Caption = xseg
Timer1.Enabled = False
End If
End Sub
cuando voy a generar el .EXE me da error, me dice que falta un objeto y me marca en amarillo esto: Label88.Caption = 0