No problem, Thats work.

If Check1.Value = 1 Then
Form41.Move (Screen.Width - Form41.Width) \ 2, (Screen.Height - Form41.Height) \ 2
Frame50.Visible = False
Form41.Height = 2700
Else
Form41.Move (Screen.Width - Form41.Width) \ 2, (Screen.Height - Form41.Height) \ 2
Frame50.Visible = False
Form41.Height = 2700
End If