No puedo seleccionar una fecha en MonthCalendar

[SilverLycan68]

Buenas tardes.
Quiero crea un monthcalendar en tiempo de ejecucion y que mande un mensaje con la fecha. Si crea el calendario, pero no me permite seleccionar la flecha le doy click al dia que quiero y no manda el mensaje.

Código [Seleccionar] Expandir


Public Class Form2
Public WithEvents monthcalendar As New MonthCalendar

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim monthcalendar As New MonthCalendar
Me.Controls.Add(monthcalendar)
DataGridView1.Hide()
With monthcalendar
       .Name = "monthCalendar"
       .Show()
       .Enabled = True
       .ShowWeekNumbers = True
End With
End Sub

Private Sub monthcalendar_DateSelected(sender As Object, e As DateRangeEventArgs) Handles monthcalendar.DateSelected
        MsgBox(e.Start.ToString)
        monthcalendar.Hide()
       
End Sub

End Class



Si alguien pudiera decirme en donde esta mi error por favor.

[tincopasan]

supongo que una forma sería crear un módulo y poner como pública la variable del calendario. algo así dentro del modulo:

Código (vbnet) [Seleccionar] Expandir


Public monthcalendar As New MonthCalendar

y eliminar esta del load:

Código (vbnet) [Seleccionar] Expandir


Dim monthcalendar As New MonthCalendar

Seguro hay formas mejores que los que saben ya te dirán, es la que usaría para darle valor global a la variable.