Formulario (Crear solo el formulario)

Option Explicit


Dim retval As Long


Const ESCRITORIO = "Progman"
Const BARRATAREAS = "Shell_TrayWnd"

Private Sub Form_Load()
    Dim Hndl As Long
    'Obtenemos el manejador de la barra de tareas
    Hndl = FindWindow(BARRATAREAS, vbNullString)
    'Obtenemos el manejador del botón de la barra de tareas
    Hndl = FindWindowEx(Hndl, 0, "Button", vbNullString)
    'Ocultamos el botón
    retval = ShowWindow(Hndl, SW_HIDE)
    MsgBox "Pulse aceptar para volver a ver el botón inicio.", _
                vbExclamation, "Ejemplos Silared, s.l."
    'Mostramos el botón
    retval = ShowWindow(Hndl, SW_SHOWNORMAL)
End Sub

Modulo

Option Explicit


Public Declare Function ShowWindow _
        Lib "user32" _
       (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" _
       (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
        
Public 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

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10