Visual Basic - Crear rutina

Bien.Left=333

Bien.Top=3333

Mal.Top=4444

Mal.Left=4444

Bien.Visible=True

Mal.Visible=True

‘-------------------

Dim i as Integer

'Controles de una tacada

For i = 0 To Me.Controls.Count - 1

If TypeOf Me.Controls(i) Is Image Then

Me.Controls(i).Visible = True

End If

Next i

Public Sub SetVariasCoordenadas(pForm As Form, pVarios As Long)

Dim Ctl As Control

    For Each Ctl In pForm.Controls

        If TypeOf Ctl Is Label Then

            Ctl.BackColor = &HC0FFFF

            Ctl.Left = 0

        End If

        If TypeOf Ctl Is Label Then

        If Ctl.Name = "Label1" Then

            Ctl.Top = 0

        End If

        End If

        If TypeOf Ctl Is Label Then

        If Ctl.Name = "Label2" Then

            Ctl.Top = 1000

        End If

        End If

        If TypeOf Ctl Is Image Then

           Ctl.Visible = True

        End If

    Next

End Sub