Hola,este codigo lo que hace es decirte solamente a que frecuencia esta el monitor actualmente en Hz.

En el formulario:

Código:
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Const VREFRESH As Integer = 116

Private Sub Form_Load()
MsgBox "Tu Monitor esta Actualmente a " & GetDeviceCaps(Me.hdc, VREFRESH) & " Hz"
End
End Sub
saludos.

Edited by: seba123neo