After seeing the “Elastic” post below, I thought I’d release my ElasticForms module ’cause this one actually *does* resize the components on the form (even lines). It’s pretty tight, fast and it even allows you to set a min width and min height for a form. A zip containing the source and an example project can be found… Read More »

This converts pixels to twips Original Author: unknown Inputs # of Pixels or twips Assumptions This converts pixels to twips, if you get the rect of a window it’s in pixels, to make your form that size you need to convert the pixels to twips.As someone pointed out in one of my other submisions, it might be a little… Read More »

Record sound from CD (Track1, Track2…) to a WAV file. Original Author: Damjan Code ‘This control use MCI to control CDPublic Sub RecordWave(TrackNum As Integer, Filename As String)’ TrackNum: track to record’ Filename: file to save wave asOn Local Error Resume NextDim i As LongDim RS As StringDim cb As LongDim t    RS = Space$(128)    i = mciSendString(“stop cdaudio”, RS, 128,… Read More »

This code makes your form window flash like Aol’s Instant Messanger when it receives a message. Original Author: Ben Doherty Assumptions make a timer and set the interval to 3000. API Declarations private declare function FlashWindow lib “user32” alias “FlashWindow” (ByVal hWnd as long, ByVal bInvert as long) as long Code Private sub timer1_timer()dim nReturnValue as integernReturnValue = FlashWindow(form1.hWnd,… Read More »

As far as I know viruses modify the header of your complied EXE to jump to a different location to execute the virus. This means the header will change and your EXE file will (with some viruses) have the virus attached to the end of the EXE file. I’ve included a module you should use in your EXE… Read More »

Another implementation of LZW compression for compressing VB strings. A 4K dictionary is used as suggested by the algorithm. A binary tree search is used for speeding up dictionary search. It accepts all the 256 characters. *** version 2 (23-Aug-99): bug fixed, performance improved *** Original Author: lcwd Code ‘ Special thanks to Chris Dodge for reporting the bugOption… Read More »

The purpose of this code is to put your application in the startup directory, even without putting it in a setup program. Original Author: Tucker Nance Inputs Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long Assumptions You should put this code in the Form_Load function of your program, you can… Read More »

This code convert a TXT file to EXE file.When you convert the file start the EXE and the old file will be typed(like TYPE command)This is really great codeNOTE : RUN THE .EXE FROM MS-DOS MODE Original Author: Atanas Matev Assumptions Create a label, a command button and common dialog controlChange the Caption of the button to “Select a… Read More »

Do you use different user logins in Windows?Tired of having the same StartUp folder just because the users share the same Start Menu?Then this solves your problem! Original Author: Hyperswede Inputs How to use personal startups.1) Add the source code below to a new project.2) Make an exe file.3) Create a shortcut in your StartUp folder that points to… Read More »

Simple function to check if file exists. Detects Normal & Hidden files. Improvement of code from Greg G., and incorporating a suggestion by Larry Rebich. Original Author: Dan Redding – Blue Knot Software Inputs A Valid Pathname as String. Returns Boolean TRUE if file exists at path specified Side Effects Simply returns FALSE if an invalid path is encountered… Read More »