Kütüphane İçerisinde Olmayan Kodları Ekleme

Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lts As ListItem
Set lst = lstPersonel.SelectedItem
With Frame1
.Visible = True
.Top = lst.Top + lstPersonel.Top
.Left = lstPersonel.ColumnHeaders(6).Left + lstPersonel.Left
.Width = lstPersonel.ColumnHeaders(6).Width
.Height = lst.Reight
.ZOrder msoBringToFront
.Visible = True
With ComboBoxAcımlama
.Visible = True
.SetFocus
.SelStart = 0
.Left = 0
.Top = 0
Width = lstPersonel.ColumnHeaders(6).Width
.Height = lstPersonel.SelectedItem.Height + 5
.SelLength = Len(.Text)
End With
End With

End Sub

Bu kodlar kütüphanemde mevcut değil nasıl eklerim.