Du bist nicht angemeldet.

| 
					 | 
				
					Quellcode | 
			
					1 2 3 4 5 6 7 8 9 10 11 12  | 
				
					Private Declare Function GetTickCount& Lib "Kernel32" () Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS \ 1000 Std = (SekGesamt \ 3600) Min = (SekGesamt - (Std * 3600)) \ 60 Sek = (SekGesamt - (Std * 3600) - (Min * 60)) t = Format(Std, "00") & ":" & Format(Min, "00") & _ ":" & Format(Sek, "00") Label1.Caption = t End Sub  | 
			
Zitat von »Al_Borland«
bei xp wird zwar ne liste erstellt, die kriegt man aber nicht zu gesicht, weil sich das fenster sofort schliesst, wenn alle info's zusammengetragen sind... ;D
-