sort skærm

Hej,

Jeg har mixet lidt kode sammen:
' Erklære variabler
Dim intCount, intRun, intTal As Integer

' Hvor meget skal der tælels til?
intTal = 15

' Starter på en FOR løkke
For intCount = 1 To intTal

' Tæller ned i stedet for op
intRun = intTal - intCount

' Udskriver hvor vi er kommet til
MsgBox intRun

' Er vi kommet til 0 sidter vi form som baggrund
If intRun = 0 Then

' Sidter vi lidet egenskaber
Form1.BackColor = H80000007
Me.Height = 100000
Me.Width = 100000
Me.Top = 1
Me.Left = 1
Exit Sub

End If

' Hopper til næste tal
Next intCount

Sådan nået du søger?

//Casper

det er næsten sådan det skal bare være sådan at den selv tæller ned

Hvis du forstår

Det kan ikke lade sig gøre... en messagebox er "statisk" i og med den blokerer den applikationer den "startes" fra så længe den der åben.

Du skal benytte en form til formålet. Læg en label på form1 (kald den label1). Erstat koden "MsgBox intRun" med "label1.caption = intRun" og efterfølgende "label1.refresh".

Man kan lave det med API. ;-)

http://www.mvps.org/vbnet/index.html?code/hooks/messageboxhooktimer.htm