Monitor Off VB6 Code

Code:

Public Sub MonitorOff()
      SendMessage frm.hwnd, &H112, &HF170&, 2&
End Sub