Alt + F4 could be handled explicit:
Code:
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM.SYSCOMMAND AndAlso m.WParam = CType(SC.CLOSE, IntPtr) Then
MoveToTray()
Exit Sub
End If
MyBase.WndProc(m)
End Sub
Private Sub MainForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyData = (Keys.Alt Or Keys.F4) Then
Close()
End If
End Sub