Handle Menu در VB

Private Const windowsMenuClassName As String= "#32768

(externalMenu=FindWindowEx(GetDesktopWindow,0,windowsMenuClassName,VbNullString

(PostMessage(externalMenu,WM_CLOSE, 0,0

End If 

End Sub

()Private  Sub Timer1_Timer 


    Dim hMenuWnd As  Long
   
(hMenuWnd = FindWindow ("# 32768", vbNullString    
    
   If hMenuWnd <> 0 Then
    
      (( Me.Caption = CStr (SendMessage
 (hMenuWnd, MN_GETHMENU, 0, 0
      
    End  If
    
End  Sub