BLOQUEAR DIGITAÇÃO NA COMBOBOX

1ª Opção:
Mude a propriedade DropDownStyle do seu ComboBox para DropDownList

2ª Opção:
No evento KeyPress da Combobox coloque o seguinte código:

e.Handled = True
'trava a escrita

CÓDIGO PARA ADICIONAR UM NOVO CAMPO NO DATAGRIDVIEW

Coloque um botão no Form e adicione o seguinte código:

Me.NomedaTabelaBindingSource.AddNew()

CÓDIGO PARA DESABILITAR O TEXTBOX ATRAVES DO BOTAO

Coloque um Botão e um TextBox no Form

Na propriedade Enabled do TextBox coloque False
Clique 2 vezes no Botão Ativar TextBox e coloque o seguinte código:

TextBox1.Enabled = True

RECEBER VALOR DE OUTRO TEXTBOX

Adicione 4 TextBox e um Botão no Form:

TextBox1 - Name: txtNome1
TextBox2 - Name: txtValor1
TextBox3 - Name: txtNome2
TextBox4 - Name: txtValor2
Botão - Text: Adicionar nos TextBox abaixo

Codigo do Botão Adicionar:

txtNome2.Text = txtNome1.Text
txtValor2.Text = txtValor1.Text

CALCULAR TROCO

Adicione 3 TextBox no Form 2 Botões e 3 Labels

TextBox1 - Name: txtValorRecebido
TextBox2 - Name: txtValorProd
TextBox3 - Name: txtTotalTroco
Botão1 - Text: Limpar
Botão2 - Text: =
Label1 - Text: Recebido
Label2 - Text: Total
Label3 - Text: Troco

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

Dim Troco1 As Decimal

Dim Troco2 As Decimal

Dim TotalTroco As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub TrocoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim TrocoCliente1 As String = String.Empty

        Dim TrocoCliente2 As Double = 0

        Try

            TrocoCliente1 = txt.Text.Replace(",", "").Replace(".", "")

            If TrocoCliente1.Equals("") Then TrocoCliente1 = ""

            TrocoCliente1 = TrocoCliente1.PadLeft(3, "0")

            If TrocoCliente1.Length > 3 And TrocoCliente1.Substring(0, 1) = "0" Then TrocoCliente1 = TrocoCliente1.Substring(1, TrocoCliente1.Length - 1)

            TrocoCliente2 = Convert.ToDouble(TrocoCliente1) / 100

            txt.Text = String.Format("{0:N}", TrocoCliente2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

 Select Case (txtTotalTroco.TextLength)

            Case 4

                txtTotalTroco.SelectionStart = 5

        End Select

Código do Botão: =

Clique duas vezes no  botão = e coloque o seguinte código:

Troco1 = txtValorRecebido.Text

Troco2 = txtValorProd.Text

TotalTroco = Troco1 - Troco2

txtTotalTroco.Text = TotalTroco

Código do Botão: Limpar

txtValorRecebido.Text = ""

txtValorProd.Text = ""

txtTotalTroco.Text = ""

Código do TextBox: Recebido - Name: txtValorRecebido

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtValorRecebido)

Código do TextBox: Total - Name: txtValorProd

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtValorProd)

Código do TextBox: Troco - Name: txtTotalTroco

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtTotalTroco)

CALCULAR QUANTIDADE

Adicione 3 TextBox nenhuma Forma 2 e 3 botoes Labels

TextBox1 - Nome: txtQuant
TextBox2 - Nome: txtMultValor1
TextBox3 - Nome: txtTotalMult
Label1 - Texto: Quantidade
Label2 - Texto: Preço Unid.
Label3 - Texto: Total
Botão1 - Texto: >>
Botão2 - Texto: Limpar

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

Dim Mult1 As Decimal
Dim Mult2 As Decimal
Dim MultTotal As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub MultMoeda(ByRef txt As TextBox)
        'As variaveis
        Dim MultValor1 As String = String.Empty
        Dim MultValor2 As Double = 0

        Try

            MultValor1 = txt.Text.Replace(",", "").Replace(".", "")
            If MultValor1.Equals("") Then MultValor1 = ""
            MultValor1 = MultValor1.PadLeft(3, "0")
            If MultValor1.Length > 3 And MultValor1.Substring(0, 1) = "0" Then MultValor1 = MultValor1.Substring(1, MultValor1.Length - 1)
            MultValor2 = Convert.ToDouble(MultValor1) / 100
            txt.Text = String.Format("{0:N}", MultValor2)
            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception
        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtTotalMult.TextLength)
            Case 4
                txtTotalMult.SelectionStart = 5
        End Select

Código do Botão:  >>

Clique duas vezes no  botão >> e coloque o seguinte código:

Mult1 = txtQuant.Text
Mult2 = txtMultValor1.Text
MultTotal = Mult1 * Mult2
txtTotalMult.Text = MultTotal

Código do Botão:  Limpar

txtQuant.Text = ""
txtMultValor1.Text = ""
txtTotalMult.Text = ""

Código do TextBox:  Valor Unid. -  Nome:  txtMultValor1

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo MultMoeda, neste caso é Form1

Form1.MultMoeda(txtMultValor1)

Código do TextBox:  Total -  Nome:  txtTotalMult

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo MultMoeda, neste caso é Form1

Form1.MultMoeda(txtTotalMult)

SOMANDO VALORES COM FRAÇÃO

Adicione dois TextBox e dois Botões no Form:

TextBox1 - Name: txtValor01

TextBox2 - Name: txtMonetario

Botão 1 - Text: Calcular

Botão 2 - Text: Limpar

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

    Dim v1 As Decimal

    Dim total As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub FormatoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim FormatoMoedaValor1 As String = String.Empty

        Dim FormatoMoedaValor2 As Double = 0

        Try

            FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")

            If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""

            FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")

            If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)

            FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100

            txt.Text = String.Format("{0:N}", FormatoMoedaValor2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtMonetario.TextLength)

Case 4

txtMonetario.SelectionStart = 5

End Select

Código do Botão: Calcular

Clique duas vezes no  botão Calcular e coloque o seguinte código:

v1 = txtValor01.Text

total = v1 + total

txtMonetario.Text = total

Código do Botão: Limpar

 txtValor01.Text = ""

Código do TextBox: Total - Name: txtMonetario

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtMonetario)

Código do TextBox: Valor - Name: txtValor01

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtValor01)

SQL SERVER COMPACT - CRIANDO UM BANCO DE DADOS E SALVANDO IMAGEM NO MESMO

Salvando imagens no banco de dados SQL Server Compact 4.0 de uma forma simples e rápida...

CÓDIGO PARA FORMATO MOEDA NO TEXTBOX

Coloque um TextBox - Name: txtMonetario no Form

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub FormatoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim FormatoMoedaValor1 As String = String.Empty

        Dim FormatoMoedaValor2 As Double = 0

        Try

            FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")

            If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""

            FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")

            If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)

            FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100

            txt.Text = String.Format("{0:N}", FormatoMoedaValor2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtMonetario.TextLength)

Case 4

txtMonetario.SelectionStart = 5

End Select

Código do TextBox:

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtMonetario)

SOMANDO VALORES AUTOMATICAMENTE CONFORME VAI DIGITANDO

Adicione 1 TextBox e 3 Labels:
TextBox - Name: txtValorProd
Label1 - Text: Valor 1
Label2 - Text: Total
Label3 - Name: lblTotalGeral

Clique duas vezes no TextBox e coloque o código:
lblTotalGeral.Text = Val(txtValorProd.Text) + Val(lblTotalGeral.Text)

FAZENDO CALCULOS AUTOMÁTICAMENTE

Adicione 2 TextBox no Form, 4 Labels e 1 Botão

TextBox1 - Name: txtValor1
TextBox2 - Name: txtValor2
Label1 - Text: Valor1
Label2 - Text: Valor2
Label3 - Text: Total
Label4 - Name: lblTotal
1 Botão - Text: Limpar

Clique duas vezes no TextBox1, TextBox2 e no Label4 - Name: lblTotal e Coloque o código abaixo em cada um deles:
Código para somar automáticamente: (mude apenas o simbolo para +)

lblTotal.Text = Val(txtValor1.Text) + Val(txtValor2.Text)

e se em vez de somar você quiser multiplicar os valores automaticamente faça a mesma coisa usando o código abaixo
Código para multiplicar automáticamente: (mude apenas o simbolo para *)

lblTotal.Text = Val(txtValor1.Text) * Val(txtValor2.Text)

Código do botão Limpar
lblTotal.Text = ""
txtValor1.Text = ""
txtValor2.Text = ""

FORMA SIMPLES DE SALVAR IMAGEM NO BANCO DE DADOS ACCESS

Crie um banco de dados como na figura abaixo:
O campo imagem com o tipo de dados: Objeto OLE

Crie um formulário com os seguintes itens:

1 botão - Text: Abrir imagem

1 PictureBox

1 OpenFileDialog

Ligue o campo imagem do BD Access arrastando-o para o PictureBox

No PictureBox na propriedade SizeMode mude para: StretchImage

assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

'Clique duas vezes no botão Abrir imagem e coloque o código abaixo...

OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png | all files (*.*) | *.*"

If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

E pronto o programa está funcionando, é só escolher qualquer imagem nos formatos JPG, BMP ou PNG e salvar no banco de dados, simples assim...

SALVAR IMAGEM NO BANCO DE DADOS ACCESS

Crie um BD Access como mostrado abaixo:
id - Numeração Automática
nome - Texto
arquivoimagem - Objeto Ole

Adicione um Module no projeto:

Código do Module:

'Acima do Module Module1 coloque...

Imports System.Data.OleDb

'Entre o Module Module1 e o End Module no meio 

'coloque o código baixo...

Public acsconn As New OleDbConnection

Public acsdr As OleDbDataReader

Public acsda As New OleDbDataAdapter

Public acscmd As New OleDbCommand

Public strsql As String

Public acsds As New Dataset

Public Sub connect()

Try

acsconn.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= | datadirectory | \database.mdb;"

acsconn.Open()

If acsconn.State = ConnectionState.Open Then

MsgBox("Conectado")

Else

MsgBox("Erro!")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

/////////////////////////////////////////////////////////////////////

Form1:
Ligue o banco de dados ao formulário:

Adicione os seguintes itens no Form:

1 Botão - Abrir imagem

1 PictureBox - ligue ao campo arquivoimagem do banco de dados:
No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

1 OpenFileDialog

Load do Form1:

'Apague o Public e acima do Class Form1 coloque:

Imports System.IO

'como mostrado na imagem logo abaixo...

Código do Botão - Abrir imagem:

'Clique duas vezes no botão Abrir imagem e coloque o código abaixo...

OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png | all files (*.*) | *.*"

If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

CÓDIGO PARA COLOCAR IMAGEM NO FORM

Adicione um PictureBox (Name: picImagem) no Form um Botão (Text: Abrir imagem) um outro Botão (Text: Salvar no HD) e um OpenFileDialog

No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

Clique duas vezes no Botão (Abrir imagem) e cole o código abaixo:

OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileNames.Length > 0 Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If


Clique duas vezes no Botão (Salvar no HD) e cole o código abaixo:

Dim local As String
Dim img = New Bitmap(picImagem.Image)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.Title = "Save an Image File"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
local = saveFileDialog1.FileName
img.Save(local, System.Drawing.Imaging.ImageFormat.Jpeg)
End If

CÓDIGO PARA CRIAR SISTEMA COM SERIAL - 02

Vamos precisar de:
3 Forms
2 Botões
1 TextBox - Name: txtSerial
2 Labels

Começando a configurar:
Form1 - Text: Sistema - / 1 Botão - Text: Entrar no sistema
Form2 - Text: Registrar / 1 TextBox - Name: txtSerial / 1 Botão - Text: Ativar / 1 Label - Text: Insira a chave:
Form3 - Text: Principal / 1 Label - Text: Programa ativado com sucesso!

Depois faça o seguinte:

Vamos para o Form1:

Código do Load do Form1:

If My.Settings.Ativado = True Then

Me.Text = Me.Text & "Ativado"

Else

Me.Text = Me.Text & "Sistema não ativado..."

End If

Código do Botão: (Entrar no sistema) do Form1:

If My.Settings.Ativado = False Then

Form2.Show()

Else

Form3.Show()

End If

Agora o Form2:

Código do botão Ativar do Form2:

'Serial para testar é: 0000-0000-1111-1111 para mudar o serial basta alterar esta parte do código

Dim Serial As String = "0000-0000-1111-1111"

If txtSerial.Text = Serial Then

MsgBox("Sucesso! Sistema ativado...", MsgBoxStyle.Information, "Sucesso!")

My.Settings.Ativado = True

My.Settings.Save()

My.Settings.Reload()

Else

MsgBox("Erro! Serial inválido", MsgBoxStyle.Critical, "Erro!")

End If

Form3:

CRIANDO SISTEMA TRIAL

Vamos precisar de:
2 Forms
Form1 - Name: frmTrial Text: Sistema Trial
Form2 - Name: frmPrincipal Text: Sistema Ativado

Conteúdo do form1
4 Labels
Label1 - Text: Início em:
Label2 - Name: lblData
Label3 - Text: Expira em:
Label4 - Name: lblFim
1 Timer
1 Botão - Name: btnRegistro Text: Registrar

1 Dialog
Conteúdo do Dialog
1 TextBox - Name: txtChaveSerial
1 Label - Text: Chave Serial
Adicionar um TextBox no Dialog1 e 1 label com o Text: Chave Serial



Form 1:

Dialog

Form2

Antes de inserir os códigos faça a seguinte configuração:

depois outra configuração...

Agora passaremos para os códigos

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do Form1: frmTrial

'Este codigo faz o sistema funcionar por 30 dias

If My.Settings.Registrado = True Then

frmPrincipal.Show()

Me.Close

Else

If My.Settings.Expirado = "" Then

My.Settings.Expirado = DateTime.Now.AddDays(30)

My.Settings.Save()

My.Settings.Reload()

Else

End If

lblData.Text = DateTime.Now

lblFim.Text = My.Settings.Expirado

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

2ª Opção de código para testar o sistema...

Código do Form1: frmTrial

'Este codigo faz o sistema funcionar por 30 segundos

If My.Settings.Registrado = True Then

frmPrincipal.Show()

Me.Close

Else

If My.Settings.Expirado = "" Then

My.Settings.Expirado = DateTime.Now.AddSeconds(30)

My.Settings.Save()

My.Settings.Reload()

Else

End If

lblData.Text = DateTime.Now

lblFim.Text = My.Settings.Expirado

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do Timer:

lblData.Text = DateTime.Now

If My.Settings.Expirado <= lblData.Text Then

Timer1.Stop()

MsgBox ("O trial expirou, compre a licença do Software",MsgBoxStyle.Exclamation, "Fim do Trial")

Dialog1.Show()

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do botão Ok do Dialog:

If txtChaveSerial.Text = "1111-2222-3333-4444" Then

My.Settings.Registrado = True

My.Settings.Save()

My.Settings.Reload()

MsgBox("Programa ativado com sucesso!",MsgBoxStyle.Information, "Sucesso!")

Else

MsgBox("A chave informada é inválida...",MsgBoxStyle.Critical, "Erro!")

End If

/////////////////////////////////////////////////////////////////////////////////////////////////////////

Código do botão Registrar:

 Dialog1.Show()

O serial para testar é: 1111-2222-3333-4444

CODIGO PARA CRIAR SISTEMA COM SERIAL - 01

Antes de tudo após criado os 2 formulários 

1º Form - Name: frmAtivar

2º Form - Name: frmPrincipal

Faça as seguintes configurações...

Depois

1 Botão - Text: Ativar

1 TextBox - Name: txtSerial

Clique 2 vezes no botão Ativar e cole o código abaixo:

'Serial para testar é: 0000-0000-0000-0000 para mudar o serial basta alterar esta parte do código

If txtSerial.Text = "0000-0000-0000-0000" Then

My.Settings.Ativado = "Sim"

My.Settings.Save()

My.Settings.Reload()

frmPrincipal.Show

Me.Close()

Else

MsgBox ("Serial Inválido")

Me.Close()

End If

Clique 2 vezes no Form do serial (frmAtivar) e cole o código abaixo:

'Esta parte do código é para fazer o formulário do serial (frmAtivar) aparecer somente uma vez depois de ativado. 

If My.Settings.Ativado = "Sim" Then

frmPrincipal.Show()

Me.Close()

End If

CRIANDO UMA CALCULADORA NO VB

Variáveis globais:

Public Class Form1

    Dim operador As String

    Dim num1 As Double

    Dim num2 As Double

Adicione 17 botões e um TextBox

TextBox1 - Name: 

txtCalcular

Botão 1 - Código:

txtCalcular.Text += "1"

Botão 2 - Código:

txtCalcular.Text += "2"

Botão 3 - Código:

txtCalcular.Text += "3"

Botão 4 - Código:

txtCalcular.Text += "4"

Botão 5 - Código:

txtCalcular.Text += "5"

Botão 6 - Código:

txtCalcular.Text += "6"

Botão 7 - Código:

txtCalcular.Text += "7"

Botão 8 - Código:

txtCalcular.Text += "8"

Botão 9 - Código:

txtCalcular.Text += "9"

Botão 0 - Código:

txtCalcular.Text += "0"

.................................................................................

Botão Limpar - Código:

txtCalcular.Text = ""

.................................................................................

Botão , Código:

  txtCalcular.Text += ","

.................................................................................

Botão + Código:

        If txtCalcular.Text = "" Then

            MsgBox("Coloque um dígito!")

        Else

            num1 = txtCalcular.Text

            operador = "+"

            txtCalcular.Text = ""

        End If

.................................................................................

Botão - Código:

        If txtCalcular.Text = "" Then

            MsgBox("Coloque um dígito!")

        Else

            num1 = txtCalcular.Text

            operador = "-"

            txtCalcular.Text = ""

        End If

.................................................................................

Botão / Código:

        If txtCalcular.Text = "" Then

            MsgBox("Coloque um dígito!")

        Else

            num1 = txtCalcular.Text

            operador = "/"

            txtCalcular.Text = ""

        End If

.................................................................................

Botão x Código:

        If txtCalcular.Text = "" Then

            MsgBox("Coloque um dígito!")

        Else

            num1 = txtCalcular.Text

            operador = "x"

            txtCalcular.Text = ""

        End If

.................................................................................

Botão = Código:

  If txtCalcular.Text = "" Then

            MsgBox("Coloque um dígito!")

        Else

            num2 = txtCalcular.Text

            If operador = "x" Then 'Multiplicar

                txtCalcular.Text = num1 * num2

            End If

            If operador = "+" Then 'Somar

                txtCalcular.Text = num1 + num2

            End If

            If operador = "-" Then 'Subtrair

                txtCalcular.Text = num1 - num2

            End If

            If operador = "/" Then 'Dividir

                txtCalcular.Text = num1 / num2

            End If

        End If