Unterprogramm in timer schleife nur einmal ausführen?

**Sommer** · 14.02.2005, 21:39

Hallo Leute,

Code:

 Private Sub Timer4_Timer()

'Kanal 1 Meldung
'-----------------------------------
If MSComm1.PortOpen = True Then
If mnuUnter1.Checked = True Then
If Text16.Text >= Alarm1 Then
Beep
End If
End If
End If
'------------------------------------
If MSComm1.PortOpen = True Then
If mnuÜber1.Checked = True Then
If Text16.Text <= Alarm1 - 1 Then
Beep
End If
End If
End If

die Schleife Beep immer je nach dem ob der Wert überschritten ist oder unterschritten wird im Menü ausgewählt.

Jetzt will ich aber ein Fenster öffnen und das natürlich nur einmal

aber er sitzt im Timer fest und es geht auch nicht mit for next ?
zumindestens bei mir nicht.

Wie kann ich es nun anstellen das mein form... aufgeht und dort einen Befehl ausführt?

Jetzt macht er das ja bei jeden timer durchlauf.
Natürlcih soll er weiter beep machen

Danke für eure Hilfe.

by Ulli