Private Function GetDisplayRefreshRate() As Integer
Dim iRefreshRate As Integer = 0
Using mos As New Management.ManagementObjectSearcher("SELECT CurrentRefreshRate FROM WIN32_VIDEOCONTROLLER")
For Each mo As Management.ManagementObject In mos.Get()
iRefreshRate = Convert.ToInt32(mo("CurrentRefreshRate"))
Next
End Using
Return iRefreshRate
End Function