Q: Error en el diseñador de Visual Studio 2019 tengo el siguiente error en el diseñador de Windows Forms en Visual Studio 2019:

He intentado de todo, incluso rehacer el formulario, pero me sigue saliendo el mismo error; dentro del código del diseño he encontrado este otro error, creo que tiene relación, pero sigo sin saber como resolverlo:

he probado a comentar la linea y el error desaparece, por lo que el error esta en ese user control.
Os dejo el código del UserControl, porsi veis algo que a mi se me escapa, ya que lo he revisado mil veces y parece estar bien.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class UserControl1
    Inherits System.Windows.Forms.UserControl

    'UserControl reemplaza a DisToIntegerose para limpiar la lista de componentes.
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Requerido por el Diseñador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
    'Se puede modificar usando el Diseñador de Windows Forms.  
    'No lo modifique con el editor de código.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.GpsdirBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.IsafetrackDataSetP = New ISafeTrack.isafetrackDataSetP()
        Me.PulBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.PulTableAdapter = New ISafeTrack.isafetrackDataSetPTableAdapters.pulTableAdapter()
        Me.GpsdirTableAdapter = New ISafeTrack.isafetrackDataSetPTableAdapters.gpsdirTableAdapter()
        Me.FechhorDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.IdpulDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.GpscoorDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.IdgpsdirDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        CType(Me.GpsdirBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.IsafetrackDataSetP, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PulBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'GpsdirBindingSource
        '
        Me.GpsdirBindingSource.DataMember = "gpsdir"
        Me.GpsdirBindingSource.DataSource = Me.IsafetrackDataSetP
        '
        'IsafetrackDataSetP
        '
        Me.IsafetrackDataSetP.DataSetName = "isafetrackDataSetP"
        Me.IsafetrackDataSetP.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'PulBindingSource
        '
        Me.PulBindingSource.DataMember = "pul"
        Me.PulBindingSource.DataSource = Me.IsafetrackDataSetP
        '
        'PulTableAdapter
        '
        Me.PulTableAdapter.ClearBeforeFill = True
        '
        'GpsdirTableAdapter
        '
        Me.GpsdirTableAdapter.ClearBeforeFill = True
        '
        'FechhorDataGridViewTextBoxColumn
        '
        Me.FechhorDataGridViewTextBoxColumn.DataPropertyName = "fechhor"
        Me.FechhorDataGridViewTextBoxColumn.HeaderText = "fechhor"
        Me.FechhorDataGridViewTextBoxColumn.MinimumWidth = 6
        Me.FechhorDataGridViewTextBoxColumn.Name = "FechhorDataGridViewTextBoxColumn"
        Me.FechhorDataGridViewTextBoxColumn.ReadOnly = True
        Me.FechhorDataGridViewTextBoxColumn.Width = 125
        '
        'IdpulDataGridViewTextBoxColumn
        '
        Me.IdpulDataGridViewTextBoxColumn.DataPropertyName = "idpul"
        Me.IdpulDataGridViewTextBoxColumn.HeaderText = "idpul"
        Me.IdpulDataGridViewTextBoxColumn.MinimumWidth = 6
        Me.IdpulDataGridViewTextBoxColumn.Name = "IdpulDataGridViewTextBoxColumn"
        Me.IdpulDataGridViewTextBoxColumn.ReadOnly = True
        Me.IdpulDataGridViewTextBoxColumn.Width = 125
        '
        'GpscoorDataGridViewTextBoxColumn
        '
        Me.GpscoorDataGridViewTextBoxColumn.DataPropertyName = "gpscoor"
        Me.GpscoorDataGridViewTextBoxColumn.HeaderText = "gpscoor"
        Me.GpscoorDataGridViewTextBoxColumn.MinimumWidth = 6
        Me.GpscoorDataGridViewTextBoxColumn.Name = "GpscoorDataGridViewTextBoxColumn"
        Me.GpscoorDataGridViewTextBoxColumn.ReadOnly = True
        Me.GpscoorDataGridViewTextBoxColumn.Width = 125
        '
        'IdgpsdirDataGridViewTextBoxColumn
        '
        Me.IdgpsdirDataGridViewTextBoxColumn.DataPropertyName = "idgpsdir"
        Me.IdgpsdirDataGridViewTextBoxColumn.HeaderText = "idgpsdir"
        Me.IdgpsdirDataGridViewTextBoxColumn.MinimumWidth = 6
        Me.IdgpsdirDataGridViewTextBoxColumn.Name = "IdgpsdirDataGridViewTextBoxColumn"
        Me.IdgpsdirDataGridViewTextBoxColumn.ReadOnly = True
        Me.IdgpsdirDataGridViewTextBoxColumn.Width = 125
        '
        'DataGridView1
        '
        Me.DataGridView1.AllowUserToAddRows = False
        Me.DataGridView1.AllowUserToDeleteRows = False
        Me.DataGridView1.AutoGenerateColumns = False
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IdgpsdirDataGridViewTextBoxColumn, Me.GpscoorDataGridViewTextBoxColumn, Me.IdpulDataGridViewTextBoxColumn, Me.FechhorDataGridViewTextBoxColumn})
        Me.DataGridView1.DataSource = Me.GpsdirBindingSource
        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
        Me.DataGridView1.Name = "DataGridView1"
        Me.DataGridView1.ReadOnly = True
        Me.DataGridView1.RowHeadersWidth = 51
        Me.DataGridView1.RowTemplate.Height = 24
        Me.DataGridView1.Size = New System.Drawing.Size(610, 969)
        Me.DataGridView1.TabIndex = 0
        '
        'ComboBox1
        '
        Me.ComboBox1.DataSource = Me.PulBindingSource
        Me.ComboBox1.DisplayMember = "dnicl"
        Me.ComboBox1.FormattingEnabled = True
        Me.ComboBox1.Location = New System.Drawing.Point(638, 13)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(240, 24)
        Me.ComboBox1.TabIndex = 21
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(1068, 12)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(86, 26)
        Me.Button3.TabIndex = 24
        Me.Button3.Text = "Nuevo"
        Me.Button3.UseVisualStyleBackColor = True
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(884, 12)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(86, 26)
        Me.Button1.TabIndex = 22
        Me.Button1.Text = "Editar"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(976, 12)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(86, 26)
        Me.Button2.TabIndex = 23
        Me.Button2.Text = "Eliminar"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'UserControl1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.DataGridView1)
        Me.Name = "UserControl1"
        Me.Size = New System.Drawing.Size(1181, 969)
        CType(Me.GpsdirBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.IsafetrackDataSetP, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PulBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents GpsdirBindingSource As BindingSource
    Friend WithEvents IsafetrackDataSetP As isafetrackDataSetP
    Friend WithEvents PulBindingSource As BindingSource
    Friend WithEvents PulTableAdapter As isafetrackDataSetPTableAdapters.pulTableAdapter
    Friend WithEvents GpsdirTableAdapter As isafetrackDataSetPTableAdapters.gpsdirTableAdapter
    Friend WithEvents FechhorDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
    Friend WithEvents IdpulDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
    Friend WithEvents GpscoorDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
    Friend WithEvents IdgpsdirDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
    Friend WithEvents DataGridView1 As DataGridView
    Friend WithEvents ComboBox1 As ComboBox
    Friend WithEvents Button3 As Button
    Friend WithEvents Button1 As Button
    Friend WithEvents Button2 As Button
End Class

Public Class UserControl1
    Public ID As String

    Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles Me.Load
        PulTableAdapter.Fill(Me.IsafetrackDataSetP.pul)
        Form1.LoadValues()
        GpsdirTableAdapter.Fill(Me.IsafetrackDataSetP.gpsdir, Form1.UserControl21.TextBox6.Text)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form1.UserControl51.Show()
        Form1.UserControl51.BringToFront()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.UserControl31.Show()
        Form1.UserControl31.BringToFront()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Form1.LoadValues()
        If Form1.UserControl21.TextBox6.Text <> "" Then
            GpsdirTableAdapter.Fill(Me.IsafetrackDataSetP.gpsdir, Form1.UserControl21.TextBox6.Text)
        End If
    End Sub
End Class

Mil gracias de Antemano.
