Apesar do sofrimento e da humildade, eles nunca perderam a FE Eis uma pequena aplicacao usando a biblioteca barcodelib.dll desenvolvida por Brad Barnhill e postada no The code Project (http://www.codeproject.com/Articles/20823/Barcode-Image-Generation-Library).A ideia aqui e gerar a imagem de um codigo de barras e diminuir seu tamanho para impressao do codigo de barras e de sua numeracao com o Print Document que voce deve tambem adicionar ao projeto:O botao Generate contem o seguinte codigo-fonte:Private Sub BtnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGenerate.Click If TxtBarcode.Text <> "" Then Dim Barcode As New BarcodeLib.Barcode(TxtBarcode.Text, BarcodeLib.TYPE.CODE128) PicCodebar.Image = Barcode.Encode(BarcodeLib.TYPE.CODE128, TxtBarcode.Text, 200, 100) Barcode.SaveImage("C:\Temp\BARRAS.JPG", BarcodeLib.SaveTypes.JPG) Dim fs As New FileStream("C:\Temp\BARRAS.JPG", FileMode.Open) Dim br As New BinaryReader(fs) br.Close() fs.Close() br = Nothing fs = Nothing End If End SubNote que o tamanho da imagem esta definido com 200 e 100.O botao Print devera conter o seguinte codigo:Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click PrintDocument1.Print() End SubDe dois cliques sobre o componente PrintDocument1 adicionado ao projeto e acrescente este codigo: Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim logo As Image = Image.FromFile("C:\Temp\barras.jpg") Dim fnt As Font 'Font definition fnt = New Font("Arial Narrow", 8) 'Redimensionar o Codigo de Barras e.Graphics.DrawImage(logo, 10, 10, 130, 15) e.Graphics.DrawString(TxtBarcode.Text, fnt, System.Drawing.Brushes.Black, 39, 39) logo.Dispose() End Sub Esse pequeno projeto pode criar codigos de barra em varios formatos. A bibliote barcodelib pode ser obtida do link informado. Basta adiciona-la nas Referencias de seu projeto atraves do menu Project -> Nomedoprojeto Properties. Sucesso a todos! O novo sistema operacional da Microsoft e tudo e mais um pouco!Apos ler durante duas semanas sobre o uso da aplicacao por outros blogs de tecnologia confesso que fiquei tentado a realizar o upgrade para o novo sistema operacional.A Microsoft deu um passo importante para isso: disponibilizou uma versao do Windows 8 que funciona por 90 dias gratuitamente:http://msdn.microsoft.com/en-us/evalcenter/jj554510.aspxApos instalar em meu notebook Toshiba com um processador Intel Duo Core posso afirmar que o sistema operacional e significativamente uma grande mudanca em relacao ao Windows 7.Meu notebook desliga e inicia agora em 3 segundos!E surpreendente a velocidade com que o Windows 8 trabalha na inicializacao e no encerramento. Li muitos artigos sobre o grande debate do sumico do menu Iniciar. Acreditem! Ele nao faz falta! E muito simples apertar a tecla Windows + R ou Windows + W ou Windows + Q para executar um comando, abrir Configuracoes ou ver uma pesquisa e os aplicativos, respectivamente. De todos os artigos, recomendo que voce leia este:http://www.hanselman.com/blog/Windows8ProductivityWhoMovedMyCheeseOhThereItIs.aspxHa muitas explicacoes sobre os botoes e modo de uso do Windows 8. Este artigo fala adequadamente para aqueles que pretendem usar a serio o Windows 8 sem cair em alardes e saudosismos sobre o menu Iniciar e outros quitutes.Instalei aplicativos no Windows 7 como o Starcraft Anthology. Tudo o que foi necessario fazer foi ir ate a pasta do Windows.old e copiar a pasta do jogo para o Program Files (x86) e a aplicacao funcionou adequadamente.A rapidez de execucao dos aplicativos e surpreendente!O que me deixou um pouco frustrado foi identificar que o