کدی برای تشخیص رزولوشن مونیتور

[unforgiven]

سلام
من برای resize کردن فرم در رزولوشن های 800*600 , 1024*768 نیاز به کدی دارم که این 2 رزولوشن رو تشخیص بده
اگه کد یا راهنمایی در این زمینه دارید لطفا بزارید
متشکرم

[PalizeSoftware]

Dim xs As Long
Dim ys As Long

xs = Screen.Width / Screen.TwipsPerPixelX
ys = Screen.Height / Screen.TwipsPerPixelY
MsgBox xs & "," & ys