Option Explicit
 
Private Sub sevText1_ButtonClick(bCancel As Boolean)
  bCancel = True
  sevMonthView1.Visible = True
  sevMonthView1.SetFocus
End Sub
 
Private Sub sevMonthView1_Click(ByVal vDatum As Variant)
  sevText1.Value = vDatum
  sevMonthView1.Visible = False
End Sub
 
Private Sub sevMonthView1_LostFocus()
  sevMonthView1.Visible = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de