Чтобы гарантировать автоматическое изменение размера столбцов в программе, написанной на VB.NET, при запуске программы, вы можете использовать различные методы. Вот несколько подходов с примерами кода:

Метод 1: использование метода AutoResizeColumns

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Assuming you have a DataGridView control named dgvData
    dgvData.AutoResizeColumns()
End Sub

Метод 2: установка свойства AutoSizeMode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Assuming you have a DataGridView control named dgvData
    dgvData.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
End Sub

Метод 3. Обработка события SizeChanged

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Assuming you have a DataGridView control named dgvData
    AddHandler dgvData.SizeChanged, AddressOf dgvData_SizeChanged
End Sub
Private Sub dgvData_SizeChanged(sender As Object, e As EventArgs)
    ' Assuming you have a DataGridView control named dgvData
    dgvData.AutoResizeColumns()
End Sub

Метод 4. Использование события DataBindingComplete

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Assuming you have a DataGridView control named dgvData
    AddHandler dgvData.DataBindingComplete, AddressOf dgvData_DataBindingComplete
End Sub
Private Sub dgvData_DataBindingComplete(sender As Object, e As DataGridViewBindingCompleteEventArgs)
    ' Assuming you have a DataGridView control named dgvData
    dgvData.AutoResizeColumns()
End Sub

Метод 5: расчет ширины столбцов вручную в зависимости от содержания

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Assuming you have a DataGridView control named dgvData
    ResizeColumns()
End Sub
Private Sub ResizeColumns()
    ' Assuming you have a DataGridView control named dgvData
    For Each column As DataGridViewColumn In dgvData.Columns
        column.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
        column.Width = CalculateColumnWidth(column.Index)
    Next
End Sub
Private Function CalculateColumnWidth(columnIndex As Integer) As Integer
    ' Assuming you have a DataGridView control named dgvData
    Dim maxWidth As Integer = 0
    For Each row As DataGridViewRow In dgvData.Rows
        Dim cell As DataGridViewCell = row.Cells(columnIndex)
        Dim preferredWidth As Integer = TextRenderer.MeasureText(cell.Value.ToString(), dgvData.Font).Width
        maxWidth = Math.Max(maxWidth, preferredWidth)
    Next
    Return maxWidth
End Function

Эти методы должны помочь вам добиться автоматического изменения размера столбцов в вашей программе VB.NET при запуске программы. Выберите метод, который соответствует вашим конкретным требованиям, и соответствующим образом интегрируйте его в свой код.