No. Best in another module, depending on how its called.

Anyway, if it is a DataGridView (as opposed to a DataGrid) this code
will not work.For a DataGridView there are no column styles, and
instead there are Columns collections, but they cannot be disassociated
from the DatGridView. Even the constructor requires the DataGridView it
is associated with.

Instead, you could use the following: (I'm still messing with it, so
this isn't complete.)

Private Sub Create_Column_Common(ByVal Column As DataGridViewColumn,
ByVal Name As String, ByVal Header As String, ByVal Read_Only As
Boolean)
       With Column
           .Name = Name
           .HeaderText = Header
           .ReadOnly = Read_Only
           .DataPropertyName = Name
       End With
End Sub

Public Function Create_Column_TextBox(ByVal Name As String, ByVal
Header As String, Optional ByVal Read_Only As Boolean = False) As
DataGridViewTextBoxColumn
       Create_Column_TextBox = New DataGridViewTextBoxColumn
       Create_Column_Common(Create_Column_TextBox, Name, Header,
Read_Only)
End Function

Public Function Create_Column_Checkbox(ByVal Name As String, ByVal
Header As String, Optional ByVal Read_Only As Boolean = False) As
DataGridViewCheckBoxColumn
       Create_Column_Checkbox = New DataGridViewCheckBoxColumn
       Create_Column_Checkbox.FalseValue = "Yes"
       Create_Column_Checkbox.TrueValue = "No"
       Create_Column_Common(Create_Column_Checkbox, Name, Header,
Read_Only)
End Function

Then to actually add the columns:

' This must be before .Fill() to stop the DGV from generated its own
column list.
<datagridview>.AutoGenerateColumns = False

<datagridview>.Columns.AddRange _
( _
 New DataGridViewColumn() _
 { _
  Create_Column_TextBox("Text_Column", "text"), _
  Create_Column_Checkbox("Checkbosx_Column", "yes/no", True) _
 } _
)

HTH,
B.