[a.ahmed]

PHP كود :

Public Sub ControlCopy(ByVal sourceControl, ByRef targetControl)
    Try
        For Each prop As System.Reflection.PropertyInfo In sourceControl.GetType().
            GetProperties().Where(Function(x) x.CanWrite And Not x.Name.Equals("WindowTarget"))
            CallByName(targetControl, prop.Name, Microsoft.VisualBasic.CallType.Set,
            CallByName(sourceControl, prop.Name, Microsoft.VisualBasic.CallType.Get, Nothing))
        Next
    Catch ex As Exception
        MsgBox("Can't copy", MsgBoxStyle.Exclamation)
    End Try
End Sub 


PHP كود :

Dim lbl As New Label
ControlCopy(Me.Label1, lbl)
lbl.Location = New Point(10, 10)
lbl.Parent = Me