Visual Basic

    Dim a As Integer = 0
    Dim b As Integer = 0
 
    a+=50
    b=b+50

    // Code size       17 (0x11)
    .maxstack 2
    .locals init ([0] int32 a,
             [1] int32 b)
    IL_0000:  nop              ' No operation
    IL_0001:  ldc.i4.0         ' Push a 4 byte integer (int32) value of 0 onto the eval stack.
    IL_0002:  stloc.0          ' Pop the top value off the eval stack into storage location 0 (a).
    IL_0003:  ldc.i4.0         ' Push a 4 byte integer (int32) value of 0 onto the eval stack.
    IL_0004:  stloc.1          ' Pop the top value off the eval stack into storage location 1 (b).
 
    ' Here is the a+=50 statement:
    IL_0005:  ldloc.0          ' Push the value in storage location 0 onto the top of the eval stack.
    IL_0006:  ldc.i4.s   50    ' Push the value 50 onto the top of the eval stack.
    IL_0008:  add.ovf          ' Add the two values at the top of the eval stack, with overflow checking.
                               ' This replaces the top two values of the eval stack with the result.
    IL_0009:  stloc.0          ' Pop the result off the eval stack into storage location 0 (a).
 
    ' Here is the b=b+50 statement:
    IL_000a:  ldloc.1          ' Push the value in storage location 0 onto the top of the eval stack.
    IL_000b:  ldc.i4.s   50    ' Push the value 50 onto the top of the eval stack.
    IL_000d:  add.ovf          ' Add the two values at the top of the eval stack, with overflow checking.
                               ' This replaces the top two values of the eval stack with the result.
    IL_000e:  stloc.1          ' Pop the result off the eval stack into storage location 1 (b).
 
    ' End of the function, return to caller.
    IL_000f:  nop
    IL_0010: ret

'example - store a string holding a folder location<br />
Dim backupFolder As String<br />
'ubstantiate a RegistryKey object<br />
Dim regEntry As Microsoft.Win32.RegistryKey<br />
'set it to the location we want:<br />
regEntry = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\TestApp", True)<br />
'if this is first run then it wont exist yet so create it:<br />
If regEntry Is Nothing Then<br />
    regEntry = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\\TestApp")<br />
    'create a subkey:<br />
    regEntry.SetValue("Backup Path", Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Backup")<br />
End If<br />
'check we have a usable value in the subkey (and that the subkey exists)<br />
If regEntry.GetValue("Backup Path").ToString = "" Or regEntry.GetValue("Backup Path").ToString = Nothing Then<br />
    'set it to default path<br />
    regEntry.SetValue("Backup Path", Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Backup")<br />
End If<br />
'set backupfolder <br />
backupFolder = regEntry.GetValue("Backup Path").ToString<br />
Me.Text = "Current backup folder: " & backupFolder

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown<br />
    If (e.KeyCode = Keys.Up OrElse e.KeyCode = Keys.Down) AndAlso IsNumeric(Me.TextBox1.Text) Then<br />
        Dim i As Integer = CInt(Me.TextBox1.Text)<br />
        'check key again, if it is up add 1, otherwise add -1<br />
        i += IIf(e.KeyCode = Keys.Up, 1, -1)<br />
        Me.TextBox1.Text = i.ToString<br />
        'start text selection at end of text, length 0 to move caret<br />
        Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length<br />
        Me.TextBox1.SelectionLength = 0<br />
        e.Handled = True<br />
    End If<br />
    <br />
End Sub