How to make one's app uncloseable

How do you make a VB app uncloseable?, excluding ctl-alt-del solutions.

Try this:

Code:

---

Private Sub Form_Load()
    App.TaskVisible = False
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = Not ReadyToClose
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If (Shift = vbAltMask) Then
        Select Case KeyCode
            Case vbKeyF4
            KeyCode = 0
        End Select
    End If

End Sub

---

Matthew Gates: Using your method, the App can still be closed via sending the WM_CLOSE message, and DestroyWindow function.