Dim X as Long
Dim Y as Long
Dim c as Long
 
Private Sub ChangeIt()
Screenmaster1.GetScreenLoosening X,Y,c 'x und y bleiben aber unangetastet/sind 
uninteressant
 
Screenmaster1.ChangeScreenLoosening NeuX,NeuY,c 'wird einfach wieder zugewiesen
End Sub