Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect _
As RECT) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Sub Form_Load()
    Dim koordinaten As RECT
    taskleiste = FindWindow("shell_traywnd", vbNullString)
    GetWindowRect taskleiste, koordinaten
    trayheight = koordinaten.Bottom - koordinaten.Top
    Form1.Top = Screen.Height - Form1.Height - trayheight * _
      Screen.TwipsPerPixelY
    Form1.Left = Screen.Width - Form1.Width
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...