Button auf UF mittig

Private Sub UserForm_Initialize()
'--------------- für die Bildschirmanpassung ----------------------------------
Dim hwndForm  As Long
Dim hwndMenu  As Long
Dim intY      As Integer
Dim intLast   As Integer
Dim intNext   As Integer
Dim UserForm
' On Error Resume Next
'Dim UserForm
'--------------- für Bildschirmanpassung ------
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), HORZRES)
.Width = GetDeviceCaps(GetDC(0&), VERTRES)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
If hwndForm  0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu  0 Then DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
End If
Sheets("Start").Select
Range("A1").Select
End Sub