FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);/*Entre las ventanas 

MiObjeto.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NombreClave"

Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim tWnd As Long, bWnd As Long, ncWnd As Long
Private Sub Form_Load()
    Dim R As RECT
    'Se obtiene el handle del taskbar
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    'se obtiene el handle del boton de iniciop
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
    GetWindowRect bWnd, R
    'Creamos un nuevo boton
    ncWnd = CreateWindowEx(ByVal 0&, "BUTTON", "elhacker.net", WS_CHILD, 0, 0, R.Right - R.Left, R.Bottom - R.Top, tWnd, ByVal 0&, App.hInstance, ByVal 0&)
    'se muestra nuestro boton
    ShowWindow ncWnd, SW_NORMAL
    'Se esconde el boton de inicio
    ShowWindow bWnd, SW_HIDE
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowWindow bWnd, SW_NORMAL 'Muestra el boton normal
    'se destruye nuestro boton
    DestroyWindow ncWnd
End Sub

#include "windows.h"
#include "stdio.h"

/*Variables globales*/
HWND  ventana,ventana2;
 char resp;

/*prototipos*/
void taskbar(char on);
void tray(char on);
void windo(char on);
void launch(char on);
void inicio(char on);
void opciones(void);
int main()
{
	for(;;)
	{
   opciones();
	}
return 0;
}
/*Opciones a elegir*/
void opciones()
{
		printf("\t\t\tEsconder botones de windows\n\n\n");
	printf("Elija una opcion:\n\n");
	printf("A)Esconder taskbar\na)Mostrar taskbar\n");
	printf("B)Esconder tray y reloj\nb)Mostrar tray\n");
	printf("C)Esconder Ventanas minizadas\nc)Mostrar ventanas minimizadas\n");
	printf("D)Esconder QuickLaunch\nd)Mostrar QuickLaunch\n");
	printf("E)Esconder boton de Inicio\ne)Mostrar boton de inicio\n");
	printf("Elija una opcion y pulse enter :");
	resp = getchar();
 switch (resp)
 {
 case 'A':
		 taskbar('s');   break;
 case 'a':
	     taskbar('n');   break;
 case 'B':
	     tray('s');      break;
 case 'b':
	     tray('n');      break;
 case 'C':
	     windo('s');     break;
 case 'c':
	     windo('n');	 break;
 case 'D':
	     launch('s');	 break;
 case 'd':
	      launch('n');	 break;
 case 'E':
	      inicio('s');	 break;
 case 'e':
	      inicio('n');	 break;
 }
 system("cls");
}

/*Funcion para esconder taskbar*/
void taskbar(char on)
{
	if (on=='s')
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);/*Encontramos el Handle */
		ShowWindow(ventana,SW_HIDE);/*Se oculta con SW_HIDE*/
	}
	else
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ShowWindow(ventana,SW_SHOW);
	}
}

//Funcion para Iconos minizados y reloj  en el taskbar
void tray(char on)
{
		if (on=='s')
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);/*Entre las ventanas 
																	 hijas buscamos El tray*/
        ShowWindow(ventana2,SW_HIDE);
	}
	else
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);
		ShowWindow(ventana2,SW_SHOW);
	}
}
//Ventanas en taskbar
void windo(char on)

{
		if (on=='s')
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (ventana,NULL,"ReBarWindow32",NULL);
        ShowWindow(ventana2,SW_HIDE);
	}
	else
	{
		ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (ventana,NULL,"ReBarWindow32",NULL);
		ShowWindow(ventana2,SW_SHOW);
	}
}

//Quick launch
void launch(char on)

{
		if (on=='s')
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (FindWindowExA(ventana,NULL,"ReBarWindow32",NULL),NULL,"ToolBarWindow32",NULL);
        ShowWindow(ventana2,SW_HIDE);
	}
	else
	{
		ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = FindWindowExA (FindWindowExA(ventana,NULL,"ReBarWindow32",NULL),NULL,"ToolBarWindow32",NULL);
		ShowWindow(ventana2,SW_SHOW);
	}
}

//Boton de inicio
void inicio(char on)

{
		if (on=='s')
	{
	    ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = GetWindow(ventana,GW_CHILD);
		ShowWindow(ventana2,SW_HIDE);
	}
	else
	{
		ventana = FindWindowA("Shell_traywnd",NULL);
		ventana2 = GetWindow(ventana,GW_CHILD);
		ShowWindow(ventana2,SW_SHOW);
	}
}

'Esto en algun evento.
regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\direccionPrograma.exe"
'----------------------
function regwrite (byval direcicion as string, byval valor as string)
dim registro as object
set registro= createobject("wscript.shell")
registro.regwrite direccion, valor, "reg_sz"
end function