Time VB6

Guten Tag,

komme leider mit der Timer-Funktion in VB 6 nicht klar. Habe folgendes Problem:

- Habe 2 Command-Buttons: Start und Berechnung
- Zwei Textfelder: Eingabe und Ausgabe

Das Programm soll so aussehen:
Bei Click auf "Start" sollen 10 Minuten Zeit sein, um in das Eingabe-Textfeld eine Zahl einzugeben und auf "Berechnung" klicken zu können. Durch Drücken auf Berechnung läuft eine Berechnung und gibt das Ergebnis ins Ausgabetextfeld. Wenn die 10 Minuten abgelaufen sind, soll ein Click auf Berechnung wirkungslos sein. Die verbleibende Zeit soll noch in einem Label angezeigt werden.

Die Berechnungsprozedur sieht wie folgt aus:

Private Sub Berechnung_Click()
Dim x as Integer
Dim y as Integer
x = Text1.Text
'hier folgen jetzt Berechnungen für y
Text2.Text = y
End Sub

Wie bekomme ich es hin, dass ich auf Click auf den Start-Button den 10-Minuten Countdown auslöse, dieser in ein Label geschrieben wird und nach Ablauf der 10 Minuten bei Click auf den Berechnungsbutton keine Berechnung durchgeführt wird, sondern eine MsgBox erscheint, dass die Zeit abgelaufen ist?

Vielen Dank schon mal im Voraus für Hilfe!!

[Jochen2011]

zb.so

Option Explicit
 
Private nMin As Integer
 
Private Sub Form_Load()

  Timer1.Interval = 60000
 
  nMin = 10
  Label1.Caption = CStr(nMin)
End Sub
 
Private Sub Timer1_Timer()
  nMin = nMin - 1
  Label1.Caption = CStr(nMin)
 
  If nMin < 1 Then Timer1.Enabled = False
  'was soll passieren, wenn Zeit abgelaufen ist
  'zb. MsgBox ...
  'zb. Button Enabled oder False
End Sub