Dim r As Rectangle
        If Form1.MdiParent IsNot Nothing Then
            r = Form1.RectangleToScreen(Form1.Bounds)
            Me.Location = New Point(r.X + r.Width + 12, r.Y - 12)
        Else
            r = Form1.Bounds
            Me.Location = New Point(r.X + r.Width + 12, r.Y)
        End If

Salzburger