Private Sub UserForm_Initialize()
    
    Dim 경로 As String
    
    경로 = ThisWorkbook.Path
    
    With ImageList1.ListImages

        .Add Key:="Image1", Picture:=LoadPicture(Filename:=경로 & "\tag-top.jpg")
        .Add Key:="Image2", Picture:=LoadPicture(Filename:=경로 & "\tag-sub.jpg")

    End With

    With TreeView1

        .Indentation = 20
        .BorderStyle = ccFixedSingle
        .LineStyle = tvwTreeLines

        Set .ImageList = ImageList1

    End With

End Sub