Private Sub Command1_Click()

Dim BarData As APPBARDATA
Dim l As Long

BarData.cbSize = Len(BarData)
l = AppBarMessage(ABM_GETTASKBARPOS, BarData)

Text1.Text = "Top = " & BarData.rc.Top
Text1.Text = Text1.Text & Chr(13) & Chr(10)

Text1.Text = Text1.Text & "Bottom = " & BarData.rc.Bottom
Text1.Text = Text1.Text & Chr(13) & Chr(10)

Text1.Text = Text1.Text & "Left = " & BarData.rc.Left
Text1.Text = Text1.Text & Chr(13) & Chr(10)

Text1.Text = Text1.Text & "Right = " & BarData.rc.Right

End Sub