Studia questo codice
se non digiti caratteri e non muovi il mouse per 10 secondi, il programma si ferma. A te l'arduo compito di metterlo in TryBar.

fai un nuovo progetto con interfaccia grafica:
Un oggetto timer1 con proprietà interval impostata su 1000
text1.text
text2.text con proprietà text = 10 e proprietà visible su false
command1

poi incolla questo codice:
'CODICE---------taglia da quì------------------------
Dim cont

Private Sub Command1_Click()
Text1.Text = okay
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
cont = 0 'se digiti un carattere il contatore cont si riporta a 0
'Stop
End Sub

Private Sub Form_Load()
cont = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cont = 0 'se muovi il mouse il contatore cont si riporta a 0
'Stop
End Sub

Private Sub Timer1_Timer()
cont = cont + 1
'Stop
If cont = Val(Text2.Text) Then
Stop
'metti il prg nella trybar
End If
DoEvents
End Sub
'END-------------a quì--------------------

di okayit60@katamail.com
buon lavoro......e fammi sapere......