Создание ссылки на свой элемент управления

dim TB as Tabl
Set TB = new <= сдесь хочу выбрать свой Tabl - его там нет при запуске - грабли error ... use new keyword

VERSION 5.00
Begin VB.UserControl Tabl 
   AutoRedraw      =   -1  'True
   ClientHeight    =   6495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11760
   ControlContainer=   -1  'True
   EditAtDesignTime=   -1  'True
   ScaleHeight     =   6495
   ScaleWidth      =   11760
   Begin VB.Label Lbl6 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   9720
      TabIndex        =   5
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Lbl5 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   7800
      TabIndex        =   4
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Lbl4 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   5880
      TabIndex        =   3
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Lbl3 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   3960
      TabIndex        =   2
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Lbl2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   2040
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Lbl1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "Tabl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private Row As Long
Private Col As Long
Private Rows As Long
Private Cols As Long
Private WC(6) As Long ' ширины колонок
 
Private Sub UserControl_Initialize()
    Dim X As Long, I As Long
    X = 5
    Cols = 9
    If Cols = 0 Then Cols = 9
    For I = 1 To 9
        With UserControl
            Load .Lbl1(I):            .Lbl1(I).Visible = True
            Load .Lbl2(I):            .Lbl2(I).Visible = True
            Load .Lbl3(I):            .Lbl3(I).Visible = True
            Load .Lbl4(I):            .Lbl4(I).Visible = True
            Load .Lbl5(I):            .Lbl5(I).Visible = True
            Load .Lbl6(I):            .Lbl6(I).Visible = True
        End With
    Next I
End Sub
 
Public Sub EventsResize()
    Call UserControl_Resize
End Sub
 
Private Sub UserControl_Resize()
    Dim W As Long, H As Long, P(6) As Long, I As Long
    W = UserControl.Width
    P(0) = 7: P(1) = 30: P(2) = 20: P(3) = 10: P(4) = 10: P(5) = 10
    For I = 0 To 5
        WC(I) = Round(P(I) * W / 100, 0)
    Next I
    ExtWidthCols
    ExtLeftPosition
    ExtTopPosition
End Sub
 
Private Sub ExtTopPosition()
    Dim I As Long
    With UserControl
        For I = 0 To 9
            If I = 0 Then
                .Lbl1(I).Top = 50
                .Lbl2(I).Top = 50
                .Lbl3(I).Top = 50
                .Lbl4(I).Top = 50
                .Lbl5(I).Top = 50
                .Lbl6(I).Top = 50
            Else
                .Lbl1(I).Top = 50 + Round(.Lbl1(I).Height * I, 0)
                .Lbl2(I).Top = 50 + Round(.Lbl2(I).Height * I, 0)
                .Lbl3(I).Top = 50 + Round(.Lbl3(I).Height * I, 0)
                .Lbl4(I).Top = 50 + Round(.Lbl4(I).Height * I, 0)
                .Lbl5(I).Top = 50 + Round(.Lbl5(I).Height * I, 0)
                .Lbl6(I).Top = 50 + Round(.Lbl6(I).Height * I, 0)
            End If
        Next I
    End With
End Sub
 
Private Sub ExtLeftPosition()
    Dim I As Long
    With UserControl
        For I = 0 To 9
                .Lbl1(I).Left = 50
                .Lbl2(I).Left = 50 + WC(0)
                .Lbl3(I).Left = 50 + WC(0) + WC(1)
                .Lbl4(I).Left = 50 + WC(0) + WC(1) + WC(2)
                .Lbl5(I).Left = 50 + WC(0) + WC(1) + WC(2) + WC(3)
                .Lbl6(I).Left = 50 + WC(0) + WC(1) + WC(2) + WC(3) + WC(4)
        Next I
    End With
End Sub
 
Private Sub ExtWidthCols()
    Dim I As Long
    With UserControl
    For I = 0 To 9
        .Lbl1(I).Width = WC(0)
        .Lbl2(I).Width = WC(1)
        .Lbl3(I).Width = WC(2)
        .Lbl4(I).Width = WC(3)
        .Lbl5(I).Width = WC(4)
        .Lbl6(I).Width = WC(5)
    Next I
    End With
End Sub

 Public Sub Col1(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl1(Strings).Caption = TextInCell
 End Sub
 Public Sub Col2(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl2(Strings).Caption = TextInCell
 End Sub
 Public Sub Col3(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl3(Strings).Caption = TextInCell
 End Sub
 Public Sub Col4(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl4(Strings).Caption = TextInCell
 End Sub
 Public Sub Col5(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl5(Strings).Caption = TextInCell
 End Sub
 Public Sub Col6(ByVal Strings As Integer, ByVal TextInCell As String)
             UserControl.Lbl6(Strings).Caption = TextInCell
 End Sub