کد برداشتن Start در vb6

 
Option Explicit
'www.nimbuzz69.team-talk.net
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDPREV = 3
Dim fWnd As Long, gWnd As Long, IpClass As String * 250, gClass As Long
Private Sub Form_Load()
HideWnd
End Sub
Function ShowWnd() As String
fWnd = FindWindow("Shell_TrayWnd", vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
ShowWindow gWnd, SW_SHOW
End If
End Function
Function HideWnd)( As String
fWnd = FindWindow("Shell_TrayWnd",  vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
ShowWindow gWnd, SW_HIDE
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
ShowWnd
End Sub
'www.nimbuzz69.team-talk.net