[vb6] Nascondere colonna datagrid

[TheSpoiler]

If Check2.Value = 1 Then
 DataGrid1.Columns(7).Visible = True
 DataGrid1.Refresh
 Check2.Refresh
Else
    DataGrid1.Columns(7).Visible = False
    DataGrid1.Refresh
 Check2.Refresh
    
 End If

Mancava solo Else.s