DataGridView列幅表示 - agehappy @ ウィキ

   Private Sub ShowGridWidth(ByVal dg As DataGridView)
       Dim sMsg As String = ""
       For Each col As DataGridViewColumn In dg.Columns
           If sMsg.Length <> 0 Then
               sMsg += ","
           End If
           sMsg += col.Width.ToString
       Next
       MessageBox.Show(sMsg)
   End Sub