Hide columns in datagrid for windows mobile application

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strPlant As String = "S001"
 
        dsResults = myservice.GetMaterialLocation(tbNumber.Text, strPlant)
 
        Dim aGridTableStyle As New DataGridTableStyle
        dgStores.TableStyles.Add(aGridTableStyle)
        aGridTableStyle.MappingName = "dsResults"
 
        Dim aCol1 As New DataGridTextBoxColumn
        Dim aCol2 As New DataGridTextBoxColumn
        Dim aCol3 As New DataGridTextBoxColumn
        Dim aCol4 As New DataGridTextBoxColumn
        Dim aCol5 As New DataGridTextBoxColumn
 
        With aCol1
            .MappingName = "Number"
            .Width = 0
        End With
        With aCol2
            .MappingName = "Description"
            .Width = 0
        End With
        With aCol3
            .MappingName = "Location"
            .HeaderText = "Loc"
            .Width = 50
        End With
        With aCol4
            .MappingName = "Bin"
            .HeaderText = "Bin"
            .Width = 50
        End With
        With aCol5
            .MappingName = "Qty"
            .HeaderText = "Qty"
            .Width = 50
        End With
        With aGridTableStyle.GridColumnStyles
            .Add(aCol3)
            .Add(aCol4)
            .Add(aCol5)
            .Add(aCol1)
            .Add(aCol2)
        End With
 
        If dsResults.Tables(0).Rows.Count > 0 Then
            With dgStores
                .DataSource = dsResults.Tables(0)
            End With
        End If
 
        dgStores.Refresh()
        
 
    End Sub