la verdad nunca he programado para dispositivos moviles con NET, solo en Java no sabria decirte si es lo mismo o no, aunque en teoria pienso yo que seria casi igual a VB.NET, bueno si pudieses dejar tu proyecto podriamos ayudarte mejor bueno para mi porque nose muy bien sobre el tema de NET en moviles jeje 

Ok mira hay dos formas para que no se cierre te lo mostrare primero en codigo:

'Para "cerrar" Form1
Me.hide()
Form2.Show()
 

Luego en el codigo de cuando se va a cerrar o se esta cerrando el Form2(Suponiendo que este seria el Form Principal) colocariamos este codigo "End" quedando asi:

  Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub

La segunda manera es ir aqui:


Y marcar lo que dice "Al cerrar el ultimo formulario", haciendo esto ya podras hacer lo que te dije al principio de

Form2.show()
me.Close()

P.D. Un Consejo al utilizar variables es mas facil si las haces en un modulo, osea lo de Public ZONA as String colocarlo en la clase o mas bien en lo de Form1 siempre tendras que escribir Form1.ZONA lo cual seria molesto a mi parecer seria mejor poner
Public ZONA as String, ponerlo dentro del modulo asi lo llamarias de donde sea como ZONA. Bueno esto es solo un consejo ^^ Suerte

De igual manera sucede conmigo jeje, por sms no me a llegado y lo e intentado estos 3 ultimos dias y si no puedo con el cel tendre que poner mi cuenta de banco, lo cual no deceaba hacer,,,, no entiendo porque facebook rechaza los celulares mexicanos o por lo menos de la compañia telcel.

u_u, ahora tendre que cambiar la mia 

Bueno la verdad veo por demas el module, el codigo en si esta bien solo para cerrar hacemos esto
Y ya con eso deberia funcionar bien tu codigo, segun a mi parecer es porque recreas todo el Form1 y vacia la variable ZONA.

O si se me habi pasado xD

en ves de Or, es And , porque usando or esque si alguna de esas se cumple repetira el while, lo cual lo que deceamos esque solo se repita si todas es lo mismo osea True, en fin el codigo quedaria asi:

   Dim _var As Char
 
        Console.Write("1º Pronostico: ")
        _var = CChar(Console.ReadLine())
 
        While _var <> "1" And _var <> "2" And _var <> "X" And _var <> "x"
 
            Console.WriteLine("ERROR, Inique un valor entre 1/X/2: ")
            _var = CChar(Console.ReadLine())
 
        End While

Tenian razon sobre lo de "X" y "x", el programa si nota la diferencia, me disculpo por mi ignorancia en ese aspecto. jeje

Gran error aqui mira


Porque no estas volviendo a asignarle el nuevo valor a _var y am en el while tmb esta incorrecto a como lo colocastes, podrias tambien usar un IF si se te es mas facil o talves un switch(creo que aqui es select case)

P.D. la letra c es alguna variable ? si es asi esta bien colocarla en el while si no lo es solo deberia funcionar usando


79137913: Segun recuerdo en VB.net no difiere mayuscula o minuscula por lo que
_var <> "X" or _var <> "x"
seria lo mismo con solo colocar uno no?

Que raro yo pues si me funciona, solo en el manifest lo pongo que se requiera administrador y me anduvo :/

Pues yo las conexiones las hago de esta manera

Imports System.Data.SqlClient
 
Public Class Form1
    'IP = IP de donde se encuentra el SQL al que se decea conectar
    'BaseDeDatos = Base de datos con la que deceamos trabajar
    'userlogin = User con el que deceamos loguear comunmente es "sa"
    'contraseña = contraseña para loguearnos
    Dim conexion = "data source = IP; initial catalog = BaseDeDatos; user id = userlogin; password = contraseña"
 
    Public Sub verificarconexion()
        Dim ss As SqlConnection = New SqlConnection(conexion)
        Try
            ss.Open()
            ss.Close()
        Catch
            MsgBox("Error en la conexion:" & vbNewLine & "El servidor, puede encontrarse en mantenimiento.", MsgBoxStyle.Information, "Conexion Fallida")
            ss.Close()
            End
        Finally
            ss.Close()
        End Try
    End Sub
 
End Class
 

Espero te sirva (:

Am nose si te sirva pero primero que pense fue en crear una variable del tipo Booleana y asi ver si oprimio y quedaria algo asi

 Dim oprimio as Boolean = False
Private Sub chkEnviado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnviado.CheckedChanged
  If oprimio = True Then
    oprimio = False
    Exit Sub
  End If
  If chkEnviado.Checked = True Then
     If MsgBox("¿Estas seguro que esta factura esta enviada?", CType(MsgBoxStyle.Question + MsgBoxStyle.YesNo, MsgBoxStyle)) = MsgBoxResult.No Then
        chkEnviado.Checked = False
     End If        
  End If
End Sub
 
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
   oprimio = True
   chkEnviado.Checked = True
End Sub
 

deberia funcionar y fue lo primero que se me ocurrio jeje aunque claro hay varias formas mas sencillas.