Private Sub DataGridView1_DataBindingComplete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles DataGridView1.DataBindingComplete
 
        Dim _DGV As DataGridView = DirectCast(sender, DataGridView)
        _DGV.Columns(_DGV.ColumnCount - 1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    End Sub

 
    Private _ActiveColumn As Integer = 0
 
 
    Private Sub DataGridView1_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDown
        _ActiveColumn = e.ColumnIndex
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.ContextMenuStrip1.Show(Me.DataGridView1, New Point(e.X, e.Y))
        End If
 
    End Sub
 
    Private Sub ShowAllDataToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowAllDataToolStripMenuItem.Click
        For Each oCol As DataGridViewColumn In Me.DataGridView1.Columns
            If oCol.Index = _ActiveColumn Then
                oCol.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            Else
                oCol.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
            End If
        Next
    End Sub