'グリッドビューカラム幅変更イベント
Private Sub dgvData_ColumnWidthChanged( _
 ByVal sender As Object, _
 ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) _
 Handles dgvData.ColumnWidthChanged

  If dgvTotal.Columns.Count > e.Column.Index Then
    dgvTotal.Columns(e.Column.Index).Width = e.Column.Width
  End If

End Sub

'グリッドビュースクロールイベント
Private Sub dgvData_Scroll( _
 ByVal sender As Object, _
 ByVal e As System.Windows.Forms.ScrollEventArgs) _
 Handles dgvData.Scroll

  If e.ScrollOrientation = ScrollOrientation.HorizontalScroll Then
    dgvTotal.HorizontalScrollingOffset = e.NewValue
  End If

End Sub