Public Class Kalender
   Inherits UserControl
 
   Private DGVList As New List(Of DataGridView)
 
   Public Sub New()
      For x As Integer = 1 To 31
         Dim dgv As New DataGridView
         DGVList.Add(dgv)
      Next
   End Sub
 
   Public ReadOnly Property AlleTage() As List(Of DataGridView)
      Get
         Return DGVList
      End Get
   End Property
 
   Public ReadOnly Property EinTag(ByVal Index As Integer) As DataGridView
      Get
         Return DGVList(Index)
      End Get
   End Property
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control