بله همینطوره در قیمت onload اون فرم با نوشتن این کد ساده میشه رزولیشن رو تشخیص داد
Select Case Form.WindowLeft
Case Is > 6000
Msgbox "Resulation = 1024"
Case 4500 To 6000
Msgbox "Resulation = 800"
Case Is < 4500
Msgbox "Resulation = 640"
End Select