Jag tänkte att när programmet är färdigt skall det komma upp en msgbox med nåt neddelande och när man klickar OK ska programmet av slutas. Så här ser det ut, skrev av från sidan där man kan se hur man ska använda statusbar.tänkte bara att när man klickar ok sen så stängs programmet ner. Jaha Avsluta programmet gebom en msgbox???
nån bra ide`?Sv: Avsluta programmet gebom en msgbox???
Private Sub Timer1_Timer()
If iI <= 100 Then
SB1.SimpleText = iI & "%"
iI = iI + 1
Else
MsgBox "Räkningen är klar"
End If
End SubSv: Avsluta programmet gebom en msgbox???
Då kan det bli så här.
Private Sub Timer1_Timer()
If iI <= 100 Then
SB1.SimpleText = iI & "%"
iI = iI + 1
Else
MsgBox "Räkningen är klar"
Unload Me
End If
End Sub
DS