Reads screen resolution, using IE this time, this one will get the active Screen resolution in format of wXh
Function ScreenRes()
Set IE = CreateObject("internetexplorer.application")
IE.fullscreen = True
intWidth = IE.Width
intHeight = IE.Height
IE.Quit
ScreenRes = intWidth & "X" & intHeight
End Function
Set IE = CreateObject("internetexplorer.application")
IE.fullscreen = True
intWidth = IE.Width
intHeight = IE.Height
IE.Quit
ScreenRes = intWidth & "X" & intHeight
End Function
Views 4,524
Downloads 1,483
CodeID
DB ID
ANmarAmdeen
609
Revisions
v1.0
Sunday
June
17
2018
