A MUST HAVE PROGRAM ! Very usefull.The IconAlbum is a collection-book (album) where you can store all your icons and view them at the same time. You can add, delete, move, save icons, searchfor icons, make directories to store them in. Very handy when you’re looking for icons you want to use in a program, a toolbar, …Unzipped… Read More »

95/NT username“Joseph P. Fisher” Original Author: Newsgroup Posting API Declarations Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVallpBuffer As String, nSize As Long) As Long Code gsUserId = ClipNull(GetUser()) Function GetUser() As String  Dim lpUserID As String  Dim nBuffer As Long  Dim Ret As Long    lpUserID = String(25, 0)  nBuffer = 25  Ret = GetUserName(lpUserID, nBuffer)  If Ret Then  GetUser$ = lpUserID$  End IfEnd Function  Function ClipNull(InString As String)… Read More »

This function converts numbers (currency) to words including centconversion and cent rounding.Note: ms stores 4 decimal positions internally but displays only 2.In a lot of number to word functions this is not handled and can causeerroneous values… this function corrects for this situation.Baz, Original Author: Newsgroup Posting Assumptions Create a module and copy all the below functions intoit.To use:… Read More »

With this program you can easily make a searchable list of files with size included. This is great for people with large numbers of files (like say mp3’s) who don’t want to duplicate their already downloaded files. Simply drag and Drop files onto the listbox. You can save and retrieve the filelist to a text file for future… Read More »

Thanks for Keeping my KeyLoggers the highest Rated on PSC. I really appreciate your feedback.My latest version uses a GLOBAL Keyboard Hook that was written in Visual C++, NO MORE TIMERS!!!. It have uploaded a complete program that shows how to use a simple Class Module as well.You can put this program into Stealth Mode or Visible Mode.… Read More »

Get the previous week’s Monday…”Kathleen A. Earley” Original Author: Newsgroup Posting Code Function GetMonDate (CurrentDate)  ‘checks to see if CurrentDate is a Date datatype  If VarType(CurrentDate) <> 7 Then    GetMonDate = Null  Else    Select Case Weekday(CurrentDate)      Case 1   ‘Sunday        GetMonDate = CurrentDate – 6      Case 2   ‘Monday        GetMonDate = CurrentDate      Case 3 To 7 ‘Tuesday..Saturday        GetMonDate = CurrentDate – Weekday(CurrentDate) + 2    End Select  End IfEnd Function

Flatbed scanner, Hand Held, or any TWAIN compliant device can be accessed in Visual Basic with the EZTWAIN DLL (Included free as freeware). I like this much better than the KODAK OCX for scanning. This uses less resources and less coding. Don’t flood me with a ton of questions on this project. Once you use it, you will… Read More »

Ever wounder how to make those neat pop-up menus like you see when you right click on something? well, here is an easy to follow example! Original Author: Dustin Davis Attachments File Uploaded Size CODE_UPLOAD1193.zip 9/3/2020 3:45:00 PM 2215

This subroutine will disable the Windows 9x/NT‘ close button, also known as the little X‘ button. It’s really useful when you have a‘ form that you don’t want to set its ControlBox‘ property to False. Write this code in a‘ standard module (BAS). Original Author: Ultimatum Assumptions Should be familiar with the Windows API. Side Effects If you’re playing… Read More »

Generates Global Unique ID – when you want to create an identifier which will never repeat all over the word , you will find this usefull. Original Author: Bogdan Chernyachuk Returns Returns Global Unique ID in string format (the same as the format of ClassID written in registry). API Declarations Public Type GUID ‘ a structure for Global Uniq.… Read More »