Private Sub Form_Load()
  Dim R As RECT 
  Dim nWidth As Long
  Dim nHeight As Long
 
  ' verfügbarer Bildschirmbereich
  SystemParametersInfo SPI_GETWORKAREA, 0, R, 0
 
  nWidth = (R.Right - R.Left) * Screen.TwipsPerPixelX
  nHeight = (R.Bottom - R.Top) * Screen.TwipsPerPixelY
 
  Me.Move nWidth - Me.Width, nHeight - Me.Height
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de