problemas con gridview

[frader]

hola que tal gente tengo un problema y no se si me puedan ayudar ya eh visitado mil paginas y no se cual sea mi error .
cargo un grid con varias ciudades y tmb pongo un checkbox quiero que al momento de seleccionar el checkbox segun los seleccionados, con un boton externo al grid, me me diga que ciudades eligio, pero la funcion que utilizo siempre me manda un false aunke seleccione la casilla del checkbox

<asp:GridView ID="dg1" runat="server" AutoGenerateColumns="False" Width="96px">
<Columns>
<asp:HyperLinkField DataNavigateUrlFields="liga" DataTextField="nomsuc">
<ControlStyle Font-Size="Small" />
</asp:HyperLinkField>
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="Chkcolumna" runat="server" AutoPostBack="False" OnCheckedChanged="Chkcolumna_CheckedChanged" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:Button ID="btnver2" runat="server" Text="Ver" />



'For Each rows In dg1.Rows
' Dim check As CheckBox = rows.Cells(1).FindControl("Chkcolumna")

' If check.Checked Then
' mostrar...
' End If

'Next

'//////////////////////////////
'For Each fila As GridViewRow In dg1.Rows
' Dim chkcolumna As CheckBox = CType(fila.FindControl("chkcolumna"), CheckBox)
' chkcolumna.Checked = True
' If chkcolumna.Checked Then
' mostrar...
' End If
'Next
'/////////////////////////////
For i As Integer = 0 To dg1.Rows.Count - 1
If CType(dg1.Rows.Item(i).Cells(1).Controls(1), CheckBox).Checked Then
mostrar....

End If
Next


esas son las diferentes que empleado y ninguna me detecta, espero me puedan ayudar

[frader]

esta fue uan solucion y claro la obvia razon... me faltaba el

if page.ispostback then en el load! ya que al darle click al botn se refrescaba!

Dim gvItem As GridViewRow
Dim contador As Integer = -1
Dim suc(0) As String
Dim label As Label
Dim suc1 As String

For i As Integer = 0 To dg1.Rows.Count - 1
If CType(dg1.Rows.Item(i).Cells(0).Controls(1), CheckBox).Checked Then
contador += 1
ReDim Preserve suc(contador)

label = CType(dg1.Rows.Item(i).Cells(2).Controls(1), Label)
suc(contador) = label.Text
End If
Next