[Amin_Mansouri]

اینم سه سمپل دیگه :

کد:

Private Sub Form_Load()
DataGrid1.ColumnHeaders = True
For i = 0 To 4
    DataGrid1.Columns.Add (i)
Next
DataGrid1.Columns(0).Caption = "wolf"
DataGrid1.Columns(1).Caption = "wolf2"
DataGrid1.Columns(2).Caption = "wolf3"
DataGrid1.Columns(3).Caption = "wolf4"
DataGrid1.Columns(4).Caption = "wolf5"
End Sub