Visual Basic - Reloj de Windows

Alguien sabe como eliminar el reloj de windows desde vb y despues volverlo a poner?

Crea 2 botones uno que se llame OcultarReloj y otro MostrarReloj

Pega este código en el form

Private Sub OcultarReloj_Click()
'Oculta el Reloj de la barra
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindowA("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowExA(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowExA(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 0
End Sub

Private Sub MostrarReloj_Click()
'Muestra el Reloj de la barra
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindowA("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowExA(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowExA(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 1
End Sub

y en un modulo pega esto:

Public Declare Function FindWindowA Lib "user32" (ByVal a As String, ByVal b As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal a As Long, ByVal b As Long) As Long
Public Declare Function FindWindowExA Lib "user32" (ByVal a As Long, ByVal b As Long, ByVal c As String, ByVal d As String) As Long

suerte, salu2

Muchas gracías, justo lo que anadaba buscando.

Dew