Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const MENU_KEYCODE = 91
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x _
  As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal _
  bRepaint As Long) As Long
 
Private Sub ShowTaskbarAt(X as Long, Y as Long)
Dim I As Long
keybd_event MENU_KEYCODE, 0, 0, 0
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
DoEvents
I = FindWindow("BaseBar", vbNullString)
MoveWindow I, X, Y, 161, 240, 0
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!