Foro de elhacker.net

wenas como estan, eh estoy empesando a ver visual basic, pero por ahora estoy viendo en modo consola y weno stava asiendo unos ejemplos para poder ver algunas cosillas y me tope con un problema es sobre Console.Clear, tengo entendido que para limpiar la pantalla ok, pero al utilizar el Console.Clear, me limpia lo que queda de arriba y solo me deja lo que hay debajo de Consolo.Clear y no es lo que deseo weno lo que queria hacer era esto.

(http://img222.imageshack.us/img222/3697/sinttulojl.th.png) (http://img222.imageshack.us/i/sinttulojl.png/)

como veran por cada operacion que realizo, ¿pregunta si desea probar con otra operacion si al darle Si entonces que me limpie la operacion realizada anteriormente y que el cursor se posicione en donde Seleccione Opcion: stava viendo la ayuda pero no logro hacerlo si alguien me puede orientar seria de gran ayuda...

Module Module1
 
    Sub Main()
        Dim Num1 As Integer, Num2 As Integer
        Dim Opcion As Integer, Resultado As Double
 
        Console.ForegroundColor = ConsoleColor.Red : System.Console.WriteLine("")
        System.Console.WriteLine("          Operaciones de Matematicas Básicas")
        System.Console.WriteLine("          ==================================")
 
        System.Console.WriteLine("") : System.Console.WriteLine("") : Console.ResetColor()
 
        Console.ForegroundColor = ConsoleColor.Green
        System.Console.WriteLine("   [1] Suma")
        System.Console.WriteLine("   [2] Resta")
        System.Console.WriteLine("   [3] Multiplicación")
        System.Console.WriteLine("   [4] División")
        System.Console.WriteLine("   [5] Potencia")
        System.Console.WriteLine("   [6] Salir")
        Console.ResetColor() : System.Console.WriteLine("") : System.Console.WriteLine("")
 
        System.Console.Write("                              Seleccione Opción: ") : Console.ForegroundColor = ConsoleColor.Green : Opcion = Console.ReadLine : Console.ResetColor()
 
        System.Console.WriteLine("") : System.Console.WriteLine("")
 
        Select Case Opcion
            Case 1
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Suma                            |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Sumando 1: ") : Num1 = Console.ReadLine
                System.Console.Write("   Sumando 2: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 + Num2)
 
                System.Console.Write("   La suma es      :" & Str(Resultado))
 
            Case 2
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Resta                           |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Minuendo  : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Sustraendo: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 - Num2)
 
                System.Console.Write("   La diferencia es  :" & Str(Resultado))
 
            Case 3
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Multiplicación                  |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Multiplicando : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Multiplicador : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 * Num2)
 
                System.Console.Write("   El Producto es        :" & Str(Resultado))
 
            Case 4
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de División                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Dividendo: ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Divisor  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 / Num2)
 
                System.Console.Write("   El Cociente es   :" & Str(Resultado))
 
            Case 5
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Potencia                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")
 
                System.Console.Write("   Ingrese Base          : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Exponente  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")
 
                Resultado = Val(Num1 ^ Num2)
 
                System.Console.Write("   La Potencia es   :" & Str(Resultado))
 
            Case 6
                If MsgBox("Esta seguro que desea sali??", MsgBoxStyle.Question + vbYesNo, "Operaciones Matematicas") = 6 Then
                    End
                End If
            Case Else
                MsgBox("El número ingresado esta fuera del rango", MsgBoxStyle.Critical, "Operaciones Aritmeticas")
 
        End Select
 
        System.Console.ReadLine()
    End Sub
 
End Module

y si creas una funcion que imprima el menu y la llamas despues del Console.clear?

xD si tenia pensado hacer asi, pero queria saber si hay de otra forma de todas maneras gracias por tu respuesta...

Slu2...