Inserindo caixas de texto runtime com PG

[Angus Musashi]

Senhores, olá.

Por favor, alguém poderia de dar uma luz , doar um pingo de informação, uma simples dica ou uma magia sinistra ou um esquema-ninja sobre um probleminha X. Por favor, aceito inclusive gambiarras.

O probleminha é o seguinte:

- Quero calcular a média de alguns números. A quantidade de números, é definida na hora da execução. Tenho então, um textbox(txtqtos.text) pro cliente entrar a quantidade de números. Feito isto, é gerado no form(em tempo de execução), um sobre o outro(partindo do ponto top 0 esquerda ,superior do form) , a quantidade de textbox pra que sejam inseridos os números para se calcular a média(numa progressão geométrica de espaços).

Haja vista que sou ALTAMENTE NOOOBASSO (NOOB MESMO), implementei o seguinte código:

Private Sub Command4_Click()
    Dim i As Integer
    'Dim TextControl As TextBox
    '    Set TextControl = Me.Controls.Add("VB.Textbox", "TXTNovo" & i)
    For i = 0 To txtqtos.Text
        'Print "TXTNovo" & i
        Me.Controls.Add "VB.TextBox", "TXTNovo" & i
        Me.Controls("TXTNovo" & i).Visible = True
        Me.Controls("TXTNovo" & i).Left = 0
        Dim novo, posicaum As Variant
        novo = (Me.Controls("TXTNovo" & i).Top = i + 480)
        'posicaum = (position.Top + 480)
        
        If Me.Controls("TXTNovo" & i).Top = 0 Then
            
            Me.Controls("TXTNovo" & i).Top = (Me.Controls("TXTNovo" & i).Top) + (Me.Controls("TXTNovo" & i).Top = 480)               ' precisa incrementar este valor
        
        End If
        Me.Controls("TXTNovo" & i).Height = 285
        Me.Controls("TXTNovo" & i).Width = 1215
            
            
        
            
    Next i
End Sub

Ou seja, está gerando apenas a primeira textbox e para por aí, não gera outra abaixo dela. Não sei mais o que fazer.

Se alguém- por favor- tiver uma solução, posso trocar por informações de outras aplicações que fiz, ou ajudar no que eu puder quando necessitar, ou até sair pra jantar(mas sem dar beijo na boca).

[kuroi]

tenta isso:

Private Sub Command4_Click()
    Dim i As Integer

    For i = 0 To txtqtos.Text - 1
        Me.Controls.Add "VB.TextBox", "TXTNovo" & i
        Me.Controls("TXTNovo" & i).Visible = True
        
        Me.Controls("TXTNovo" & i).Top = 480
        Me.Controls("TXTNovo" & i).Left = 0
        Me.Controls("TXTNovo" & i).Height = 285
        Me.Controls("TXTNovo" & i).Width = 1215
        
        Me.Controls("TXTNovo" & i).Top = Me.Controls("TXTNovo" & i).Top + (Me.Controls("TXTNovo" & i).Height * i)
    Next
End Sub[/code]