LOGIN E SENHA

Vamos precisar de:
2 Forms
2 TextBox
1 Botão

Form1 - Text: Login
Form2 - Text: Logado - Name: frmLogado
Botão - Text: Login
TextBox1 - Name: txtLogin
TextBox2 - Name: txtSenha - Propriedade: UseSystemPassword = True

Clique duas vezes no botao Login e coloque o código abaixo:

 If txtLogin.Text = "Admin" And txtSenha.Text = "123456" Then
            frmLogado.Show()
        ElseIf txtLogin.Text <> "Admin" Or txtSenha.Text <> "123456" Then
            MsgBox("Usuário ou Senha inválidos!")
        End If

Obs: Login: Admin - Senha: 123456 Para mudar a senha e o login altere as partes em vermelho do código com dados de sua preferência...

CALCULADORA SIMPLES EM VB

O que vamos precisar é o seguinte:

3 TextBox - Propriedade Name:
TextBox1 = txtvalor01
TextBox2 = txtvalor02
TextBox3 = txttotal

6 Botoes - Propriedade Name:
Somar + = btnsoma
Subtrair - = btnsub
Dividir / = btndiv
Multiplicar * = btnmult
Limpar
Sair

'Declarando as variaveis
Clique duas vezes no form e coloque:

Public Class Form1

    'Declarando as variaveis

    Dim v1 As Double
    Dim v2 As Double
    Dim total As Double

Clique duas vezes no botão Somar + (Name =  btnsoma) e coloque: 
v1 = txtvalor01.Text
v2 = txtvalor02.Text
total = v1 + v2
txttotal.Text = total

Clique duas vezes no botão Subtrair - (Name =  btnsub) e coloque: 
v1 = txtvalor01.Text
v2 = txtvalor02.Text
total = v1 - v2
txttotal.Text = total

Clique duas vezes no botão Dividir / (Name =  btndiv) e coloque: 
v1 = txtvalor01.Text
v2 = txtvalor02.Text
total = v1 / v2
txttotal.Text = total

Clique duas vezes no botão Multiplicar * (Name =  btnmult) e coloque: 
v1 = txtvalor01.Text
v2 = txtvalor02.Text
total = v1 * v2
txttotal.Text = total

Clique duas vezes no botão Limpar e coloque:
txtvalor01.Text = ""
txtvalor02.Text = ""
txttotal.Text = ""

Clique duas vezes no botão Sair e coloque:
Close()

DATA E HORA

HORA:
Pegue um "timer" e coloque o "interval" para 1000 - Enabled "True" Depois clique duas vezes no "timer" e coloque o codigo:
LbHora.Text=TimeString
depois pegue um Label e na propriedade "Name" renomeie para LbHora e pronto


DATA:
Pegue um Label e na propriedade "Name" renomeie para LbData depois dê dois cliques no form, Obs:  O codigo no form ele já inicia o projeto com a data. Insira o seguinte codigo:
LbData.Text = Today

CODIGO PARA FILTRAR DADOS

Pegue um TextBox e na propriedade "Name" renomeie para txtPesquisar depois dê dois cliques no TextBox e cole o código abaixo mudando as partes em vermelho NomeTabela pelo nome de sua tabela no banco de dados e o nome você deixa como está caso este campo exista na sua tabela, pois a pesquisa será por este campo, caso o campo seja diferente ex: produto você coloca produto no lugar de nome e ele irá pesquisar pelo produto cadastrado e assim por diante.

 If txtPesquisar.Text = "" Then
            MsgBox("Digite um nome!")
            txtPesquisar.Focus()
        Else
            Me.NomeTabelaBindingSource.Filter = "nome LIKE '%" & txtPesquisar.Text & "%'"
        End If