Передача имён контролов в метод

Private Sub initHead(ByVal wi As Long, ByVal h As Long)
Dim cl As New Color
  With Form1.headG
    .AutoRedraw = True
    .width = wi
    .height = h
    .left = 0
    .top = 0
    .ScaleMode = 3
    .BorderStyle = 0
    .BackColor = cl.colWin(colh)
  End With
End Sub

Private name As String
Private Sub initHead(ByVal n As String, ByVal wi As Long, ByVal h As Long)
 name = n
 With name 'with object must be user-defined type object or variant
    .AutoRedraw = True
    .width = wi
...
...
End Sub

initHead "Form1.headG", 300, 50

Private Sub initHead(ByVal n As String, ByVal wi As Long, ByVal h As Long)
 With Controls(n)  '
    .AutoRedraw = True
    .Width = wi
 End With
End Sub
 
Private Sub Command1_Click()
    initHead "headG", 300, 50
End Sub

Public Sub initHead(Frm As Form, ByVal n As String, ByVal wi As Long, ByVal h As Long)
  With Frm.Controls(n) 'Form1.headG '
    .AutoRedraw = True
    .Width = wi
    .Height = h
    .Left = 0
    .Top = 0
    .ScaleMode = 3
    .BorderStyle = 0
    .BackColor = 255
  End With
End Sub

Option Explicit
Dim w As Windows
Private Sub Form_Click()
w.initHead Me, "headG", 300, 300
End Sub
 
Private Sub Form_Load()
Set w = New Windows
End Sub