Make the UserForm full screen and center the controls.

Hello,

I have a sports results management program and my issue is as follows:
- I can display the userform in full screen but the controls are correctly represented, only on the left side of the userform (with only the initialize part).
- The attached code, activate, only shows a small portion of the userform at the top left of the screen.

Could you suggest a solution for me?

Thank you for your help
Best regards
ajca29

Private Sub Workbook_Open()
'Hide the columns containing warnings
Columns("CB:DA").Select
Selection.EntireColumn.Hidden = True
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
With UserForm2
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

Private Sub UserForm_Activate()
Dim RW As Single, RH As Single
Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel
RW = ScreenWidth * PointsPerPixel / Me.Width
RH = ScreenHeight * PointsPerPixel / Me.Height
Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH
Next
End Sub

Private Sub Bouton_Annulation_Click()
TextBox1.Text = "" 'Clear the contents of the TextBox
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Configuration: Windows 8 / Internet Explorer 10.0