Make the backcolor property of a form acts like a VB-Setup Program Original Author: Henrik Jacob Udsen Code Option Explicit Private Sub Form_Paint()Dim lngY As LongDim lngScaleHeight As LongDim lngScaleWidth As LongDim WhatColor As String ScaleMode = vbPixelslngScaleHeight = ScaleHeightlngScaleWidth = ScaleWidthDrawStyle = vbInvisibleFillStyle = vbFSSolidFor lngY = 0 To lngScaleHeight  FillColor = RGB(0, 0, 255 – (lngY * 255)… Read More »

‘In replacement of existing Collection in VB‘SEE MY NEW VERSION ! Original Author: Rick Inputs ‘Same as Collection Assumptions ‘CollectionPlus his based on existing Collection, but you can ask question like‘ifKeyIsThere ou ifItemIsThere , returns True or False.‘A Public Event Error is available.‘It’s a very simple code but useful !‘In my next version i’m gonna handle Item,Key and Group‘so… Read More »

Simply counts the number of lines in a textbox (the textbox should be multiline=true, otherwise it is pretty useless). Put this in a module so it can be reused. Original Author: Jono Spiro Inputs USAGE–countLines(the textbox)EXAMPLE–countLines(text1) Returns Returns the number of lines in a textbox. Code Public Function countLines(textBox As textBox) As LongDim A%, B$A% = 1B$ = textBox.textDo… Read More »

‘OptiDraw’ is actually a pretty descent drawing program. It’s not as good as Microsoft’s Paint, but I like to think it comes pretty close. You can load, save and print images, draw free-hand, draw lines, circles, rectacles, filled rectacles, and more. There are also some tools and filters. I integrated Sneechy’s ‘Instant Art’ program and some other stuff… Read More »

The worst game in the world is back! Puke Invaders: Second Mission features new, faster and stronger enemies, a new power-up, and a whole new mission to play (you need to complete the first one before you can access the second mission). Original Author: Benny Rossaer Attachments File Uploaded Size CODE_UPLOAD226512131999.zip 9/3/2020 3:45:00 PM 108786

hides program in crtl-alt-menuone line of code Original Author: Vito Inputs 0 Assumptions really easy code Returns 0 Side Effects 0 Code app.TaskVisible = false// that all for now// bye

With this code you can scroll text smoothly in any direction without needing any API calls. All you need is a PictureBox control, a Label control, and a timer.The code is fully commented and has examples for scrolling in the four main directions. Original Author: Russ Suter Assumptions Create a new project. On the main form create a PictureBox… Read More »

I just quickly improved this screen wipe function written by Jesse Foster.It runs a bit smoother and is usable as a function for any form. Just drop it into a module. Also, I made it work so that it is ‘public’ not private. Original Author: Jono Spiro Inputs ‘Screenwipe form to wipe, speed‘example: screenwipe form1,100 Code Public Function screenWipe(Form… Read More »

This tip is the most powerful bit of code I’ve ever come across. It will act as an exe but with no need to compile. However you must have either Win 98 or IE5 for it to work Original Author: Tmess Code First open up notepad and simply write:Msgbox “HI”Now save the text file. In windows explorerfind that text… Read More »

While browsing through the files on this site, I noticed that most listings that dealt with sending e-mail using VB used the Winsock Control. I recently wrote a small demo for a customer that reads a database file, and then sends it to an email address. This code requires that you use the MAPISession Control as well the… Read More »