using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Data.OleDb;
using System.IO;
 
namespace ImagenFondo
{
    public partial class Form1 : Form
    {
        static string sPath = System.Windows.Forms.Application.StartupPath;
        string sConect = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + sPath + "\\fondos.accdb;Persist Security Info=False";
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            openFileDialog1.Filter = "Image Files|*.jpg";
            openFileDialog1.Title = "Select image";
            openFileDialog1.FileName = "Archivo imagen";
            if (openFileDialog1.ShowDialog() == DialogResult.OK)
            {
                bSave(openFileDialog1.FileName);                
            }            
        }
        private void button2_Click(object sender, EventArgs e)
        {
            bSet(comboBox1.SelectedItem.ToString());            
        }
        private void bSave(string sFilename)
        {            
            FileInfo fInfo = new FileInfo(sFilename);
            FileStream fs = new FileStream(sFilename, FileMode.Open);
            Byte[] data = new byte[fs.Length];
            fs.Read(data, 0, Convert.ToInt32(fs.Length));
            fs.Close();
            using (OleDbConnection connection = new OleDbConnection(sConect))
            {
                connection.Open();
                OleDbCommand cmd = new OleDbCommand("INSERT INTO fondo (Nombre,Imagen) VALUES ('" + fInfo.Name + "', @Imagen)", connection);
                cmd.Parameters.AddWithValue("@Imagen", data);
                cmd.ExecuteNonQuery();
                connection.Close();
                bCount();
                MessageBox.Show("El archivo " + fInfo.Name + " se guardo correctamente", "Fondos guardados", MessageBoxButtons.OK, MessageBoxIcon.Information); 
            } 
        }
        private void bCount()
        {
 
            using (OleDbConnection connection = new OleDbConnection(sConect))
            {
                comboBox1.Items.Clear();
                connection.Open();
                OleDbCommand cmd = new OleDbCommand("SELECT COUNT (*) FROM fondo" , connection);
                int count = (int)cmd.ExecuteScalar();
                for (int i = 1; i <= count; i++)
                {
                    comboBox1.Items.Add(i.ToString());
                }
                comboBox1.Text = "Previsualizar un fondo";
                connection.Close();
            }
        }
        private void bPreview(string Id)
        {
            using (OleDbConnection connection = new OleDbConnection(sConect))
            {
                connection.Open();
                OleDbCommand cmd = new OleDbCommand("SELECT Imagen FROM fondo WHERE Id = " + Id, connection);
                byte[] imgData = (byte[])cmd.ExecuteScalar();
                MemoryStream mem = new MemoryStream(imgData);
                pictureBox1.Image = Image.FromStream(mem);
                connection.Close();
            }
        }  
        private void bSet(string Id)
        {
            using (OleDbConnection connection = new OleDbConnection(sConect))
            {
                connection.Open();
                OleDbCommand cmd = new OleDbCommand("SELECT Imagen FROM fondo WHERE Id = "+ Id, connection);
                byte[] imgData = (byte[])cmd.ExecuteScalar();
                MemoryStream mem = new MemoryStream(imgData);
                this.BackgroundImage = Image.FromStream(mem);
                connection.Close();
                pictureBox1.Visible = false;
            }
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            bCount();
        }
 
        private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
        {
            bPreview(comboBox1.SelectedItem.ToString());
            button2.Enabled = true;
            pictureBox1.Visible = true;
        }       
    }
}
 

CanStop

CanPauseAndContinue

Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As String = Replace(TextBox1.Text, "-", vbNullString, 1, TextBox1.Text.Length)
        MsgBox(sumAscii(temp.Trim()))
    End Sub
    Public Function sumAscii(ByVal texto As String) As String
        Dim ascii As Encoding = Encoding.ASCII
        Dim suma As Integer = 0
        Dim txtBytes As [Byte]() = ascii.GetBytes(texto)
        Dim b As [Byte]
        For Each b In txtBytes
            suma += b
        Next b
        sumAscii = suma.ToString()
    End Function
End Class