Soru Açıklamaya Göre Form Açma ve Silme İşlemi

[sirkülasyon]

Option Explicit
Public sTxt$

Private Sub MyRightClickMenu()
Application.CommandBars("Cell").Reset
Dim cbc As CommandBarControl
For Each cbc In Application.CommandBars("cell").Controls
cbc.Visible = False
Next cbc
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Mevzuata Göre Yenile"
.OnAction = "Mevzuata Göre Yenile"
End With
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Çalışma Takvimine Göre Yenile"
.OnAction = "Çalışma Takvimine Göre Yenile"
End With
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Sil"
.OnAction = "Kişiyi Sil"
End With
Application.CommandBars("Cell").ShowPopup
End Sub

"Mevzuata Göre Yenile" başlığı seçilince MEVZUAT.SHOW
"Çalışma Takvimine Göre Yenile" başlığı seçilince ÇALIŞMA.SHOW
"Sil" başlığı seçilince de hem sayfadan hem de Listbox' tan silecek.

Yukarıda arz etmeye çalıştığım işlemi yapabilmek için yardımcı olabilir misiniz?

 

[sirkülasyon]

Listbox açıldığı zaman seçilen kişiye göre hangi form açıldı ise
MEVZUAT ve ÇALIŞMA formlarında AKTAR butonu ile ilgili kişinin satırına
Başlama Tarihi, Yıl, Ay, Gün ve Bitiş Tarihi aktarılmasını sağlamak için yardımcı olabilir misiniz?