Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
    If UnloadMode = 0 Then  ' Das Rote X wurde geklickt
        Cancel = 1
        Me.Hide
    ElseIf UnloadMode = 1 Then ' Das Programm wurde per Code beendet
        Dim f As Form
            For Each f In Forms
                Unload f
                Set f = Nothing
            Next
    End If
 
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mfg, lighty

---------------------------------------------------
Schaut mal hier:
http://www.reset.ch/index.html

(die Links sind ungef?hrlich )

Ps.: F?r jeden, der wie ich, zu oft vorm Rechner sitzt

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        Me.Hide()
    End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Me.Visible Then
            e.Cancel = True
            Me.Hide()
        End If
End Sub

Mfg, lighty

---------------------------------------------------
Schaut mal hier:
http://www.reset.ch/index.html

(die Links sind ungef?hrlich )

Ps.: F?r jeden, der wie ich, zu oft vorm Rechner sitzt

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mfg, lighty

---------------------------------------------------
Schaut mal hier:
http://www.reset.ch/index.html

(die Links sind ungef?hrlich )

Ps.: F?r jeden, der wie ich, zu oft vorm Rechner sitzt