Visual Basic 6 - Bloccare menu start

Volevo chiedervi se si può bloccare il menu start richiamando qualche api o altro.

Bloccando il cursore del mouse non é la stessa cosa:

in un modulo

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Sub BloccaMouse()
Dim Perimetro As RECT     
GetWindowRect Form1.hwnd, Perimetro
ClipCursor Perimetro
End Sub
Private Sub SbloccaMouse()
   Dim Perimetro As RECT
       GetWindowRect GetDesktopWindow(), Perimetro
       ClipCursor Perimetro
End Sub

crea 2 command button e scrivi nel 1

Call BloccaMouse

e nel secondo

Call SbloccaMouse

Non è proprio la stessa cosa...


a questo punto perchè non chiudere explorer...

Forse nn mi sn spiegato bene, cmq io intendo di far muovere il mouse ma di non far accedere al menù start, magari si potrebbe nascondere la Start Bar, però il menù start si può far apparire lo stesso.
Spero di essere stato più chiaro.

P4p3r0g4 ,comunque,se chiudi explorer.exe si riapre automaticamente

Opera del buon vecchio Bill

ho trovato...
metti questo in un modulo:
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Public Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "User32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

poi dove vuoi(in un modulo o nella form):
Private Sub ShowTaskBar(Visible As Boolean)
ShowWindow FindWindow("Shell_TrayWnd", "", (IIf(Visible, SW_SHOW, SW_HIDE))
End Sub

poi con showtaskbar(false) la nasconde xo premendo il tasto windows si apre start
se metti showtaskbar(true) dovrebbe apparie ma a me è rimasta nascosta...
cmq se nn va al riavvio va di nuovo... spero

ho trovato...
metti questo in un modulo:
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Public Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "User32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

poi dove vuoi(in un modulo o nella form):
Private Sub ShowTaskBar(Visible As Boolean)
ShowWindow FindWindow("Shell_TrayWnd", "", (IIf(Visible, SW_SHOW, SW_HIDE))
End Sub

poi con showtaskbar(false) la nasconde xo premendo il tasto windows si apre start
se metti showtaskbar(true) dovrebbe apparie ma a me è rimasta nascosta...
cmq se nn va al riavvio va di nuovo... spero