Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect _
  As RECT) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal _
hWndNewParent 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 FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal _
hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As _
String) As Long
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 Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Sub Form_Load()
 
    Dim lControlHwnd As Long: lControlHwnd = Frame1.hwnd
 
    Me.Hide
 
    Dim rWindowRect As RECT, rTrayRect As RECT
    Dim lBarHwnd As Long: lBarHwnd = FindWindow("Shell_TrayWnd", vbNullString)
    Dim lTray As Long: lTray = FindWindowEx(lBarHwnd, 0, "TrayNotifyWnd", _
      vbNullString)
 
    If (lBarHwnd > 0) Then
        Call SetParent(lControlHwnd, lBarHwnd)
        Call GetWindowRect(lBarHwnd, rWindowRect)
        Call GetWindowRect(lTray, rTrayRect)
 
        Dim lTrayWidth As Long:     lTrayWidth = rWindowRect.Right - _
          rWindowRect.Left
        Dim lNotifyWidth As Long:   lNotifyWidth = rTrayRect.Right - _
        rTrayRect.Left
 
 
        ' Breite des Controls
        Dim lControlWidth As Integer: lControlWidth = 250
        Dim lControlHeight As Integer: lControlHeight = 25
        lTrayWidth = lTrayWidth - lControlWidth
 
        MoveWindow lControlHwnd, lTrayWidth - lNotifyWidth, 5, lControlWidth, _
          lControlHeight, True
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.