Seçilen hangi ayın tarihi ise o ayın ismini yazsın

[polis-53]

merhaba arkadaşler Ekte gönderdiğim dosyada DTPicker1 e hangi tarih var ise o tarih hangi aya aitse TextBox1 e o ayın ismini yazsın istiyorum.
iyi çalışmalar.

 

[hamitcan]

Private Sub DTPicker1_Change()
    TextBox1 = MonthName(Month(DTPicker1.Value))
End Sub

 

[polis-53]

merhabalar dosyayı her açtığımda textbox1 boş gözüküyor her DTPicker1 hangi tarih var ise o gözüksün seçim yapmadan TextBox1 boş gözüküyor Birde DTPicker1 dosya her açıldığında o günün tarihi gelebilirmi?

 

[hamitcan]

Private Sub UserForm_Initialize()
    DTPicker1 = Date
    TextBox1 = Date
End Sub