Lo que pretendo es usar el valor de una variable publica a otro formulario... lo que sucede esque la tengo declarada de la siguiente manera:

Lo que pretendo con el codigo es que cada vez que le de click a un boton "dependiendo del boton", me cambie el valor a Public idestado As Integer, la inicializo en 0, si le cambio valores (1,2,3,4) si me funciona pero en inicio la inicializo en 0, y cuando le de click en un boton de los declarados, quiero que cambie el valor de esa variable public.

Public Class Estado
    Public idestado As Integer=0

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Hide()
        Inicio.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'ID:1'
        Me.idestado = 1
        Me.Hide()
        QuintanaRoo.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'ID:2'
        Me.idestado = 2
        Me.Hide()
        Tabasco.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ID:3'
        Me.idestado = 3
        Me.Hide()
        Campeche.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'ID:4'
        Me.idestado = 4
        Me.Hide()
        Yucatan.Show()
    End Sub


End Class


Todo eso para que me funcione en otro formulario, que utiliza esa variable y todo lo tengo declarado como, pues lo quiero usar en un combobox (como prueba de que si puedo cambiar el valor apartir de dar click en el mismo, pues lo pretendo usar para otros fines):

Imports MySql.Data.MySqlClient
Imports MySql.Data
Imports AppCenotes.Estado
Public Class Informacion
    Friend conexion As MySqlConnection
    Private Sub Informacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Aestado As Estado = New Estado
        'Creamos conexion'
        conexion = New MySqlConnection()
        conexion.ConnectionString = "server=" & "localhost" & ";" & "user id=" & "root" & ";" & "password=" & " " & ";" & "Database=" & "cenotes" & ";"

        'Creamos adaptador'
        Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Aestado.idestado, conexion)
        Dim dbDataset As DataSet = New DataSet()
        conexion.Open()

        'Utilizar el adaptador para llenar el dataset con una tabla'
        adapter.Fill(dbDataset, "nombre")
        conexion.Close()

        'Una vez desconectados, recccorremos la tabla del dataset'
        Dim tabla As DataTable
        tabla = dbDataset.Tables("nombre")

        Dim Fila As DataRow
        For Each Fila In tabla.Rows
            'Mostrar los datos mediante un objeto fila'
            Combo.Items.Add(Fila.Item("nombre"))
        Next
    End Sub
End Class

Ya busque en Google, como Cambiar valor a una variable public en (.net, visual basic, visual basic 2010, visual studio 2010)..... " de todas esas formas... una por una... y nada!" u.u!  espero que me puedan ayudar saludos :S!
 

como haria eso :S intentando acoplarlo a mi codigo :S para que pueda usar esa variable en el otro formulario amigo :S???  


porque si lo declaro...

    Public idestado As Integer=0

Public Class Estado

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Hide()
        Inicio.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'ID:1'
        Me.idestado = 1   //me saldria error aqui...

Supongamos que tengo la variable en el Form1

"Variable X"

Si le doy click al boton #1.... esta variable tendra el valor X=1
Si le doy click al boton #2.... esta variable tendra el valor X=2
Si le doy click al boton #3.... esta variable tendra el valor X=3
Si le doy click al boton #4.... esta variable tendra el valor X=4

Depende del boton, el valor que quiera ponerle a la variable X


y todos esos botones me llevan al Form2... en donde dependiendo del boton la variable X ya habra tomado su valor... entonces esa variable la quiero usar en el Form2, con su respectivo valor...

me entendiste amigo :S? 

Esq no me funciono :S... y pues si no es mucha molestia acepto tu ejemplo :S "yo me espero". y muchas gracias (Y).

Para que funcionara de este codigo:


le quite el         Dim Aestado As Estado = New Estado

y en la parte del adaptador

Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Aestado.idestado, conexion)

lo cambie para que quedara asi:

Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Estado.idestado, conexion)

Ayudado por .:IT:.


Gracias por tu recomendacion de todos modos $Edu$