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

    Dim window1 As Window
    
    Set window1 = ActiveWindow
    
    window1.Width = 200
    window1.Height = 150
    
End Sub