Private Const SM_CMONITORS As Long = 80& Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Function getNumberScreen() As Long getNumberScreen = GetSystemMetrics(SM_CMONITORS) End Function