Sub Create_Label(ByVal FormName As String, ByVal ObjName As String, ByVal LabelName As String, ByVal PosX As Integer, ByVal PosY As Integer, ByVal SizeX As Integer, ByVal SizeY As Integer)
        Dim Form_To As Form = Application.OpenForms.Item(FormName)
        Dim LabelNew As New Label
        LabelNew.Name = LabelName
        LabelNew.Location = New Point(PosX, PosY)
        LabelNew.Size = New Size(SizeX, SizeY)
        If ObjName <> "" Then
            Dim Obj As Object = Form_To.Controls(ObjName)
            Obj.controls.add(LabelNew)
        Else
            Form_To.Controls.Add(LabelNew)
        End If

    End Sub