Redimensionar Itens junto com o Userform

Boa noite,

Alguém pode me auxiliar como faço para que as Label, TextBox, etc… sejam redimensionadas junto com o formulário? Tive êxito ao inserir os códigos p/ tela cheia e ajuste do user, mas os outros, não. Não sei o que estou fazendo de errado, pois a seta não move o formulário.
Os códigos estão assim:

Private Sub UserForm_Initialize()

'Posição

lblResizer.Left = Me.InsideWidth - lblResizer.Width
lblResizer.Top = Me.InsideHeight - lblResizer.Height
minHeight = 125
minWidth = 125
Private Sub lblResizer_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

'Clique na lblResizer
resizeEnabled = True

'Captura da posição do mouse ao clicar
mouseX = X
mouseY = Y

End Sub

Private Sub lblResizer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

'Verificação do tamanho Userform
Dim allowResize As Boolean

allowResize = True

        If Me.Width + X - mouseX < minWidth Then allowResize = False
        If Me.Height + Y - mouseY < minHeight Then allowResize = False

'Verificação do mouse sobre a lblResizer
If resizeEnabled = True And allowResize = True Then

'Redimensionar objetos conforme movimento do mouse
Me.Width = Me.Width + X - mouseX
Me.Height = Me.Height + Y - mouseY

'Redimensionar botões de comando
CommandButton1.Width =CommandButton1.Width + X - mouseX
CommandButton1.Height = CommandButton1.Height + Y - mouseY

CommandButton2.Width =CommandButton2..Width + X - mouseX
CommandButton2.Height = CommandButton2..Height + Y - mouseY

CommandButton3.Width =  CommandButton3.Width + X - mouseX
CommandButton3.Height =  CommandButton3.Height + Y - mouseY

CommandButton4.Width = CommandButton4.Width + X - mouseX
CommandButton4.Height = CommandButton4.Height + Y - mouseY

Image1.Width = Image1.Width + X - mouseX
Image1.Height =Image1.Height + Y - mouseY

Image2.Width =  Image2.Width + X - mouseX
Image2.Height =  Image2.Height + Y - mouseY

'Mover o botão fechar
cmdClose.Left = cmdClose.Left + X - mouseX
cmdClose.Top = cmdClose.Top + Y - mouseY

'Mover o ícone redimensionar
lblResizer.Left = Me.InsideWidth - lblResizer.Width
lblResizer.Top = Me.InsideHeight - lblResizer.Height

End If

End Sub

Private Sub lblResizer_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

'Clique na lblResizer
resizeEnabled = False

End Sub

ModuloResizer

Private resizeEnabled As Boolean
Private mouseX As Double
Private mouseY As Double
Private minWidth As Double
Private minHeight As Double

Grata pela Atenção!Sem título