Me.Text = TextBox1.Text

'Constantes para pasarle a la función Api SetWindowPos
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '
  
' Función Api SetWindowPos
Private Declare Function SetWindowPos _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal cX As Long, _
        ByVal cY As Long, _
        ByVal wFlags As Long) As Long
  
'En el primer parámetro se le pasa el Hwnd de la ventana
'El segundo es la constante que permite hacer el OnTop
'Los parámetros que están en 0 son las coordenadas, o sea la _
 pocición, obviamente opcionales
'El último parámetro es para que al establecer el OnTop la ventana _
no se mueva de lugar y no se redimensione
  
Private Sub Command1_Click()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub
  
'Colocamos la ventana en su posicion original:
Private Sub Command2_Click()
'Hacemos lo mismo que en el evento anterior, pero pasandole la otra constante
'para que deje de estar siempre encima de las demás, estado normal
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
  
Private Sub Form_Load()
    Command1.Caption = "Siempre visible (Always Ontop)"
    Command2.Caption = "Ventana Normal"
End Sub

Private Sub Command1_Click()
    If Val(Text1.Text) <> Val(Text2.Text) Then ' para enteros
        MsgBox "nueva version"
    ElseIf (Text1.Text) <> (Text2.Text) Then 'para texto
        MsgBox "nueva versión"
    else
        msgbox "no hay nada"
    End If
End Sub

#include <iostream>
#include <conio.h>

int Add(int hola, int chau)
{
   cout << "Numeros ingresados: " << hola << "  " << "y " << chau;
   cin.get();
   return (hola + chau);
}

/***** Programa Principal */

int main ()
{
   cout << "ingresa dos numeros para sumar\n";
   int a,b,c;
   cin >> a;
   cin >> b;
   c=Add (a,b);
   cout<<"El resultado es:\t " <<c; //faltaban << y el resutado de la variable c no puede ir << c SINO ASI <<c
   getch(); //agregado desde la libreria <conio.h> en vez de pause
}

Private Sub Command1_Click()
    Dim i As Integer, suma As Integer
    Dim s As String
    
    For i = 1 To Len(Text1.Text) 'comienza el ciclo desde el 1 hasta la cantidad que es
                                              'permita ingresar en el textbox osea 3
        suma = suma + Val(Mid(Text1.Text, i, 1)) 'Extraer los #s y los sumas uno x uno
    Next i 'termina el ciclo
    MsgBox suma, vbInformation, "TAREA" 'muestras el resultado
End Sub

Private Sub Form_Load()
    Text1.MaxLength = 3 'solo permite ingresar tres caracteres al textbox
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then 'solo acepta números backspace y supr
        KeyAscii = 0
    End If
End Sub

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const BM_GETCHECK = &HF0
Private Const BM_CLICK = &HF5
Private Const WM_SYSCOMMAND = &H112
Private Const SC_CLOSE = &HF060&

Dim Hndl As Long
Dim chekeo As Long

If Dir("C:\Windows\System32\Sndvol.exe") <> "" Then 'VISTA
        Shell "C:\Windows\System32\Sndvol.exe", vbHide
        Hndl = FindWindow("Volume Control", "Mezclador de volumen")
        Hndl = FindWindowEx(Hndl, 0, "Button", "&Silecio")
        chekeo = SendMessage(Hndl, BM_GETCHECK, 0, 0)
If chekeo = 1 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)
        Hndl = FindWindow("Volume Control", "Mezclador de volumen")
        Call SendMessage(Hndl, WM_SYSCOMMAND, SC_CLOSE, CLng(0))
End If