Private Declare Function GetDC Lib "user32" _
 (ByVal hwnd As Long) As Long
 
Private Declare Function GetDeviceCaps Lib "gdi32" _
 (ByVal hdc As Long, ByVal nIndex As Long) As Long
 
Private Declare Function ReleaseDC Lib "user32" _
 (ByVal hwnd As Long, ByVal hdc As Long) As Long
 
Private Const HORZRES = 8
Private Const VERTRES = 10
 
Public Property Get ScreenBreite() As Long
  Dim BnDC As Long
 
  BnDC = GetDC(0)
  ScreenBreite = GetDeviceCaps(BnDC, HORZRES)
  ReleaseDC 0, BnDC
 
End Property
 
Public Property Get ScreenHoehe() As Long
 
  Dim HnDC As Long
 
  HnDC = GetDC(0)
  ScreenHoehe = GetDeviceCaps(HnDC, VERTRES)
  ReleaseDC 0, HnDC
 
End Property

Private Sub Form_Load()
    Form1.height = ScreenHoehe * 20
    Form1.width = ScreenBreite * 20
    Form1.top = 0
    Form1.left = 0
 
    Dim tbPosition As Byte
    Dim tbHoehe As Integer
    Dim tbBreite As Integer
    Dim tbVordergrund As String
 
    tbPosition = TaskBarAlign
    tbHoehe = TaskBarHeight * 20
    tbBreite = TaskBarWidth * 20
    tbVordergrund = IsTaskBarOnTop
 
    Select Case TaskBarAlign
    Case 0  'links
        Form1.width = Form1.width - tbBreite     'ungültiger eigenschaftswert
        Form1.left = Form1.left + tbBreite
    Case 1  'rechts
        Form1.width = Form1.width - tbBreite     'ungültiger eigenschaftswert
    Case 2  'oben
        Form1.height = Form1.height - tbHoehe
        Form1.top = Form1.top + tbHoehe
    Case 3  'unten
        Form1.height = Form1.height - tbHoehe
    Case Else
        MsgBox ("fehler")
    End Select
 
End Sub