Calculadora En Visual Basic

'Proyecto: Calculadora de Martín Gaytán totalmente desarrollada mediante código 
'Autor: Jesús Martín Gaytán Díaz de León 
'Propuesto por: Francisco Javier Ceballos: “Enciclopedia de Viaual Basic” 
'Comentarios: Este proyecto no toma en cuenta las recomendaciones de la calculadora 
'que viene en el ejemplo del libro, todos los métodos fueron desarrollados por cuenta 'propia así como la interfaz, solamente se integro parte del proyecto Convertir Grados 
 
Imports System.Windows.Forms                       'Carga la biblioteca de controles visuales para utilizar en las Ventanas  
Imports System.Drawing                             'Carga el entorno visual del Escritorio de Windows Public Class Calculadora : Inherits System.Windows.Forms.Form   'Declara una clase heredando las propiedades de una ventana 
                                         'En la línea siguiente se declaran las propiedades básicas de la clase calculadora 
  Private dValor As Double = Nothing, cOperAnt As Char = Nothing, bSensible As Boolean = False, bPuntoDec As Boolean= False 
    'Ahora se declara un objeto de cuadro de texto que aceptará evaluar eventos mediante WithEvents, ttpantalla sin eventos   Private WithEvents mtPantalla As MaskedTextBox = New MaskedTextBox() : Private  ttPantalla As ToolTip = New ToolTip() 
                      'Declaración de todos los botones como objetos, el ToolTip será una pista en cuadro amarillo de ayuda 
  Private            btEncender As Button        = New Button()        ,          ttEncender As ToolTip = New ToolTip(), _                      btLimpiar  As Button        = New Button()        ,          ttLimpiar  As ToolTip = New ToolTip(), _ 
                     btIgual    As Button        = New Button()        ,          ttIgual    As ToolTip = New ToolTip(), _ 
                     btMas      As Button        = New Button()        ,          ttMas      As ToolTip = New ToolTip(), _                      btMenos    As Button        = New Button()        ,          ttMenos    As ToolTip = New ToolTip(), _ 
                     btPor      As Button        = New Button()        ,          ttPor      As ToolTip = New ToolTip(), _ 
                     btEntre    As Button        = New Button()        ,          ttEntre    As ToolTip = New ToolTip(), _ 
                     btSigno    As Button        = New Button()        ,          ttSigno    As ToolTip = New ToolTip(), _                      btPunto    As Button        = New Button()        ,          ttPunto    As ToolTip = New ToolTip(), _ 
                     bt0        As Button        = New Button()        ,          tt0        As ToolTip = New ToolTip(), _ 
                     bt1        As Button        = New Button()        ,          tt1        As ToolTip = New ToolTip(), _                      bt2        As Button        = New Button()        ,          tt2        As ToolTip = New ToolTip(), _ 
                     bt3        As Button        = New Button()        ,          tt3        As ToolTip = New ToolTip(), _ 
                     bt4        As Button        = New Button()        ,          tt4        As ToolTip = New ToolTip(), _                      bt5        As Button        = New Button()        ,          tt5        As ToolTip = New ToolTip(), _ 
                     bt6        As Button        = New Button()        ,          tt6        As ToolTip = New ToolTip(), _ 
                     bt7        As Button        = New Button()        ,          tt7        As ToolTip = New ToolTip(), _ 
                     bt8        As Button        = New Button()        ,          tt8        As ToolTip = New ToolTip(), _                      bt9        As Button        = New Button()        ,          tt9        As ToolTip = New ToolTip() 
  Private Sub New()                                                                    'Constructor de la clase Calculadora          ...