Category Archives: Visual Basic 6 (VB6)

This simple program adds menu items or subitems at runtime without any api calls.

Visual Basic 6 (VB6) is a programming language that was widely used in the past, but it is no longer as relevant as it once was. VB6 was released in 1998 and was succeeded by Visual Basic .NET (VB.NET) in 2002. While VB6 is still used by some organizations, it is no longer supported by Microsoft, and most… Read More »

XPFrame solves well known problem of standard frame’s behaviour with XP styles (see screenshot bellow). This control looks like .NET GroupBox under Windows XP or like VB Frame under early systems. Demo project is included.

This class encrypts/decrypts data with MD5 hashing and RC4 encrypting algorithms using Windows CryptoAPI functions.

Get information on the CPU using Active Directory ‘ Get a description of the processor using Active Directory” NOTE: requires a reference to the Active DS Type library Function GetCpuDescription() As String  Dim thisComputer As ActiveDs.IADsComputer  Dim thisService As ActiveDs.IADsServiceOperations  ‘ we need this object to retrieve computer name  Dim sysInfo As New ActiveDs.WinNTSystemInfo   ‘ retrieve the AD object corresponding to this… Read More »

Gets the handle of the window under the mouse cursor. Private Type POINTAPI  X As Long  Y As LongEnd TypePrivate Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As LongPrivate Declare Function WindowFromPoint Lib “user32” (ByVal xPoint As Long, _  ByVal yPoint As Long) As Long ‘ Return the handle of the window under the mouse cursor. Function WindowFromMouse() As Long  Dim… Read More »

This example show a way you can fake a drag/drop with listboxes. It does not use the official Drag/Drop features of VB.

Shows you a couple very easy ways to download files from the internet using the url. Uses api, no controls. You can download files, webpages ect.. If someone has right clicking disabled. Recovered from the remains of vbcodesource.com.

Recently, I went to one my favorite source code repositories, just to check out new submissions, and see how things are progressing in the community. I always enjoy seeing how up and coming young programmers are learning new ways to keep our favorite “old, dead” language alive.