Hej...nu behöver jag hjälp igen. Hej Tack Sven.  If (MsgBox("Vill du avsluta?", vbYesNo, "Avsluta") = vbYes) Then Oke tackar så mycket, men oavsett vad man man väljer på Ja eller nej så avslutas programet?  <code> Såhär ska det vara:MSGBOX vid avslut
    
    
När användaren stänger av mitt prog så skulle jag vilja att det kommer upp en msgbox som talar om att proget skall avslutas. användrae skall då få 2 alternativ, tex OK, då skall programmet avslutas, eller Avbryt då skall det inte hända mycket mer än att msgboxen försvinner...hur löser vi detta? Är nog inte så svårt men sent på kvällen nu.Sv: MSGBOX vid avslut
    
    
Du lägger koden i Formens QueryUnload
Private Sub Form_QueryUnload(Cancel As Integer, _
                                     UnloadMode As Integer)
MsgBox "Programmet kommer att avslutas"
'här lägger du in IF vilkor
End Sub
mvh
SvenSv: MSGBOX vid avslut
    
    
Men nu är jag inte så duktig på MSGBOX där man har olika alternativ att välja på, just if satsen har jag inte riktigt koll på, tacksam om du kan fullföja hela koden, Sv: MSGBOX vid avslut
    
    
     End
Else
    Exit Sub
End If
Hoppas detta funkar.
/JonteSv: MSGBOX vid avslut
    
    Sv: MSGBOX vid avslut
    
    
Private Sub Form_QueryUnload(Cancel As Integer,  UnloadMode As Integer)
    Select Case MsgBox("Programmet kommer att avslutas!", vbInformation or vbOkCancel)
    Case vbCancel
        Cancel = True
    End Select
End Sub
</code>Sv: MSGBOX vid avslut
    
    
<code>
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("Vill du avsluta?", vbQuestion + vbYesNo) = vbNo Then
        Cancel = True
    End If
End Sub
</code>
/Johan