Dim sys As New UltraMonSystem 'Objekt deklarieren
Const POS_ALL = &H7 'Konstante für das Speichern aller Icons
 
Private Sub cmdAus_Click()
 
    sys.Monitors(CStr(2)).Enabled = False 'Secundär Monitor aus
    sys.ApplyMonitorChanges 'Changes übernehmen
    sys.SavePositions POS_ALL 'Position der Icons abspeichern
 
End Sub
 
Private Sub cmdEin_Click()
 
    sys.Monitors(CStr(2)).Enabled = True 'Secundär Monitor ein
    sys.ApplyMonitorChanges 'Changes übernehmen
    sys.RestorePositions POS_ALL 'Position der Icons wieder herstellen
 
End Sub