VBA - Hjælp til nybegynder ( Rnd )

Her er lidt og lege med.

-------- Kode start --------------

Public Class results
    Public l1 As New Label()
    Public l2 As New Label()
    Public r1 As New TextBox()
End Class
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x, y As Integer

        Dim R(30) As results
        Dim i As Integer

        i = 0

        For x = 0 To 4
            For y = 0 To 5
                R(i) = New results()
                R(i).l1 = New Label()
                R(i).l2 = New Label()
                R(i).r1 = New TextBox()

                R(i).l1.Text = Str(Int(Rnd() * 200))
                R(i).l2.Text = Str(Int(Rnd() * 200))
                R(i).l1.Height = 13
                R(i).l2.Height = 13
                R(i).l1.AutoSize = False
                R(i).l2.AutoSize = False
                R(i).l1.RightToLeft = Windows.Forms.RightToLeft.Yes
                R(i).l2.RightToLeft = Windows.Forms.RightToLeft.Yes
                R(i).l1.Location = New Point(10 + (x * 100), 10 + (y * 50))
                R(i).l2.Location = New Point(10 + (x * 100), 25 + (y * 50))

                R(i).r1.Width = 40
                R(i).r1.RightToLeft = Windows.Forms.RightToLeft.Yes
                R(i).r1.Location = New Point(70 + (x * 100), 40 + (y) * 50)
                Me.Controls.Add(R(i).l1)
                Me.Controls.Add(R(i).l2)
                Me.Controls.Add(R(i).r1)
                i += 1
            Next y
        Next x
    End Sub
End Class

------------- Kode slut -----------


Mvh
  Jesper

hvad med at gøre det færdig her http://www.eksperten.dk/spm/851183

Tak, det var blot i desperation, da jeg skulle bruge hurtig hjælp Kabbak.

Nissen du kan blot udbede dig dine points. Dit svar var også brugbart.

Ja med dem vil jeg da gerne have. Takker :-)

Mvh
  Jesper

Mange tak for hjælpen