Me.r1.Text = Form1.Arab(NumericUpDown1.Value)
===============
    Public Shared Function Arab(ByVal length11 As Integer) As String
        Dim random As Random = New Random()
        Return New String(Enumerable.Repeat(Of String)("制丽制制美丽复复复制美丽复制美复复美美美美复美美复美制美美制复丽复丽美复复美复丽复复美美美制丽制丽丽美复美美美复丽美复复复丽制复美复复复丽复美复美复美复复制丽复制美美复制制丽丽美复", length11).[Select](Function(s As String) s(random.[Next](s.Length))).ToArray())
    End Function