GotoVal = Me.Height / 2
For Gointo = 1 To GotoVal Me.Height = Me.Height - 10 Me.Top = (Screen.Height - Me.Height) \ 2 If Me.Height <= 11 Then Goto horiz Next Gointo horiz: Me.Height = 15 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal Me.Width = Me.Width - 10 Me.Left = (Screen.Width - Me.Width) \ 2 If Me.Width <= 11 Then End Next Gointo |