فرم در جای مشخص

[REZADG]

سلام دوستان
ببخشید من چندی پیش یه تاپیک زدم با همین عنوان موضوع اینه که من میخوام فرمم همیشه توی تمام رزویلیشن ها کنار ساعت ویندوز باشه نه جای دیگه اما در رزویلیشن ویدوز خودم دورسته ولی جاهای دیگه کار دستم میده این کد ها هم که پایین نوشتم یکی از اساتید ضحمتش رو کشیده بودن ببینید حالا چطوری می تونیم این رو درست کنیم
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Width - (Me.Width + 2950)

[parselearn]

Private Const ABM_GETTASKBARPOS = &H5
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Private Sub Command1_Click()
Dim ABD As APPBARDATA
SHAppBarMessage ABM_GETTASKBARPOS, ABD
MsgBox "Taskbar Width:" & ABD.rc.Right - ABD.rc.Left
MsgBox "Taskbar Height:" & ABD.rc.Bottom - ABD.rc.Top

Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height - (Me.Height + ((ABD.rc.Bottom - ABD.rc.Top) * Screen.TwipsPerPixelY))
End Sub