Controls.Add

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub Form_Load()
 
  Controls.Add "VB.TextBox", "txtBox", Me
 
  With Me.Controls("txtBox")
    .Visible = True
    .Left = 100
    .Top = 100
    .Width = 1000
  End With
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Private Sub Form_Activate()
 
    Dim sql As String
    Dim rstMitglied As Recordset
    Dim tebo As MSForms.TextBox
    Dim lbl As MSForms.Label
    Dim myRange As Range
    Dim myCell As Range
    Dim sziel As Variant
    Dim height As Integer
    Dim width As Integer
    Dim x As Long
    Dim w As Long
    Dim i As Long
 
    Caption = "Einzahlungen"
    x = 15
    w = 10
    Set DB = CurrentDb()
    sql = "Select distinct(person) from Goldenes_Haendchen where aktiv = Yes" & _
      "order by person"
    Set rstMitglied = DB.OpenRecordset(sql)
    If rstMitglied.RecordCount > 0 Then
        rstMitglied.MoveLast
        rstMitglied.MoveFirst
        For i = 0 To rstMitglied.RecordCount - 1
            Controls.Add "VB.Label", "Label", Me
            rstMitglied.MoveNext
        Next i
    End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Controls.Add "VB.Label", "Label", Me

Controls.Add "VB.Label", "Label" & CStr(i), Me

Gruß
Dirk

--
?Get it right the first time

Controls.Add

Gruß
Dirk

--
?Get it right the first time

----------------------------------------------------------------
Wenn einer der mit Mühe kaum, geklettert ist auf einen Baum,
Schon denkt das er ein Vogel wär', so irrt sich der