[Xin giúp đỡ] Di chuyển Listbox1 vào Frame

[Mutants Men]

Xin chào các bác, anh chị em trên diễn đàn, mình muốn hỏi vấn đề như trên tiêu đề, mình có tạo 1 UserForm, trong UserForm tạo 1 Listbox1, sau đó chạy code, nội dung code sẽ tạo một Frame kích thước và vị trí giống với Listbox1, sau khi tạo xong thì di chuyển Listbox1 vào Frame vừa tạo
ListBox1: có sẵn do người dùng tạo tên "ListBox1"
Frame: không có sẵn, mục này sẽ do code thực hiện tạo

Mình có sử dụng code như sau, và nhận được lỗi Run-time error '94' Invalid use of Null

Nội dung code như sau và file đính kèm

Private Sub UserForm_Activate()
Tao_Frame
End Sub

Private Sub Tao_Frame()
    Dim lb_DanhSach As MSForms.ListBox
    Set lb_DanhSach = Me.ListBox1
   
    If Not lb_DanhSach Is Nothing Then
        ' T?o m?t Frame m?i v?i tên là "uf_Frame"
        Dim uf_Frame As Frame
        Set uf_Frame = Me.Controls.Add("Forms.Frame.1", "uf_Frame", True)

        ' Ð?t v? trí và kích thu?c cho Frame
        uf_Frame.Left = 10
        uf_Frame.Top = 10
        uf_Frame.Height = 100
        uf_Frame.Width = 200

        ' Di chuy?n Listbox_DanhSach vào trong Frame
        lb_DanhSach.Top = 10
        lb_DanhSach.Left = 10
        lb_DanhSach.Width = 180
        lb_DanhSach.Height = 80
        lb_DanhSach.List = Range("A1:C5").Value2
        uf_Frame.Controls.Add lb_DanhSach
    End If
End Sub

XIn cảm ơn các bác đã đọc bài và giúp đỡ mình trước