'слева
Me.Left = 0
Me.Top = 0
Me.Height = Screen.Height
'справа
Me.Top = 0
Me.Left = Screen.Width - Me.Width
Me.Height = Screen.Height
'сверху
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
'снизу
Me.Left = 0
Me.Top = Screen.Height - Me.Height
Me.Width = Screen.Width
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 19