Det finns ett API som öppnar startmenyn. Vilket är det? Kan inte hitta det. Testa att klistra in följande kod i ett formulär:Öppna startmenyn
Tack på förhand.
/MickeSv: Öppna startmenyn
Option Explicit
Private Const WM_SYSCOMMAND = &H112
Private Const SC_TASKLIST = &HF130&
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub PopUpStartMenu()
Dim lReturn As Long
lReturn = SendMessage(hwnd, WM_SYSCOMMAND, SC_TASKLIST, ByVal 0&)
' *** Förklaring vart hWnd kommer ifrån. Får vara lite snäll :O)
' *** lReturn = SendMessage(me.hwnd, WM_SYSCOMMAND, SC_TASKLIST, ByVal 0&)
End Sub
Private Sub Command1_Click()
PopUpStartMenu
End Sub
Private Sub Timer1_Timer()
PopUpStartMenu
End Sub