Attribute VB_Name = "testwindowope10"
Sub ƒeƒXƒg()

    Dim window1 As Window
    
    Set window1 = ActiveWindow
    
    window1.Top = 10
    window1.Left = 10
    
End Sub