Hej! Skulle bara fixa en liten ruta med sekundräknare upp till 30 och sen börja om. Fick inte ens uppräkningen att funka.

Private Sub Timer1_Timer()
sec = sec + 1
Text1.Text = sec
End Sub

Hur får man fönstret att alltid ligga överst?

Tack på förhand / Peter

Ett principexempel som visar på hur du kan göra
30 sek kan slå på nån halvsek + -
Alltid överst får du precisera lite närmre vad skall ligga överst kolla på Zorder.
<code>
Option Explicit
'En Timer1 en Label1 en Command1
'Obs Timern är inte exakt Interval 1000 blir ~ 1 sek
Dim sek As Long
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Alignment = 2
Label1.FontBold = True
Label1.FontSize = 14
Label1.Caption = ""
Command1.Caption = "Start"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
Timer1.Enabled = True
Else
Label1.Caption = ""
Command1.Caption = "Start"
Timer1.Enabled = False
sek = 0
End If
End Sub

Private Sub Timer1_Timer()
sek = sek + 1
Label1.Caption = sek
If sek > 30 Then sek = 0
End Sub

</code>

Tack så mycket!
Jag vill att programmet ligger över alla andra prog så man alltid ser det.
MVH
Peter

Kolla [Växla Always ontop]

/Micke

Programmet överst
[Windowsskal]
[Always on top + Always active]
[Inverterat Always On Top]

[Gör din form 'always-on-top']
[Växla Always ontop]
[Alltid överst.]

1000 Tack!
Peter