Laufzeitfehler 384 - Minimieren/Maximieren

Private Sub UserForm_Activate()
On Error Resume Next
Set objForm = New clsUserform
With objForm
.MaxButton = True
.MinButton = True
.BorderStyle = 1
.Create Me
End With
Application.WindowState = xlMinimized
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
frmHaupt.Left = ((Me.Width) - frmHaupt.Width) / 2
frmHaupt.Top = ((Me.Height) - frmHaupt.Height) / 2
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or  _
_
SWP_NOSIZE)
End Sub

Was bedeutet diese Fehlermeldung?
Wer kann mir hier Tipps geben?
viele grüsse
selma