Use this code to read or set the current desktop color settings. Module Option Explicit Private Declare Function GetSysColor Lib “user32.dll” (ByVal nindex As Long) As LongPrivate Declare Function SetSysColors Lib “user32.dll” (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Public Enum WindowsItem    COLOR_ACTIVEBORDER = 10    COLOR_ACTIVECAPTION = 2    COLOR_APPWORKSPACE = 12    COLOR_BACKGROUND = 1    COLOR_BTNFACE = 15    COLOR_BTNHIGHLIGHT =… Read More »

With a little API magic, you can check the current screen resolution, and change it at runtime if needed. Module Option Explicit ‘Declares: Public Declare Function GetSystemMetrics Lib “user32.dll” (ByVal nIndex As Long) As LongPrivate Declare Function EnumDisplaySettings Lib “user32.dll” Alias “EnumDisplaySettingsA” (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As BooleanPublic Declare Function ChangeDisplaySettings… Read More »

Create a Form and place this code inside. Sorry but the comments are in german. Code Option Explicit Dim offx%                 ‘ x-offset zur mitteDim offy%                 ‘ y-offset zur mitteDim anz%                 ‘ anzahl sterneDim bahnx%(100, 180)     ‘ x-tabDim bahny%(100, 180)     ‘ y-tabDim starwi%(500)            ‘ anz%Dim starba%(500)            ‘ anz%Dim cosi(360)             ‘ cos-tabDim sini(360)             ‘ sin-tabDim st%Dim wert                 ‘ rad in degDim x%                    … Read More »

Just a little bit of code will allow you to play AVI files within your application. Great for media players, instructional apps, etc. Module Const WS_CHILD = &H40000000 Private Declare Function mciSendString Lib “winmm.dll” Alias _    “mciSendStringA” (ByVal lpstrCommand As String, _    ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _    ByVal hwndCallback As Long) As Long Private Declare Function mciGetErrorString… Read More »

Simple method to print a text file to the default printer. Module Option Explicit Public Sub PrintTXTFile(FileName As String)    Dim x As Integer    Dim s As String     x = FreeFile    On Error GoTo HandleError    Open FileName For Input As x    Do While Not EOF(x)        Line Input #x, s        Printer.Print s    Loop    Printer.EndDoc    Close #x    Exit SubHandleError:    MsgBox “Error :” & Err.Description, vbCritical, “Printing File…”End Sub Usage Create a Form with… Read More »

Just like the title says, this will enumerate a list of users either on the local machine or one a Windows domain. Module Option Explicit ‘API typesPrivate Type USER_INFO    Name As String    Comment As String    UserComment As String    FullName As StringEnd Type Private Type USER_INFO_API    Name As Long    Comment As Long    UserComment As Long    FullName As LongEnd Type Public UserInfo(0 To 1000) As USER_INFO ‘API callsPrivate… Read More »

This code should give you everything your need to start, stop, pause, and get the status of services. Module Option Explicit ‘API ConstantsPublic Const SERVICES_ACTIVE_DATABASE = “ServicesActive”‘ Service ControlPublic Const SERVICE_CONTROL_STOP = &H1Public Const SERVICE_CONTROL_PAUSE = &H2’ Service State – for CurrentStatePublic Const SERVICE_STOPPED = &H1Public Const SERVICE_START_PENDING = &H2Public Const SERVICE_STOP_PENDING = &H3Public Const SERVICE_RUNNING = &H4Public… Read More »

This is a pair of class modules that allow you to easily enumerate the currently logged in users on either the local machine or a specified remote machine. Class Module: clsGetRemoteLoggedInUsers This class returns the logged in users on a remote or local Workstation when the HostName property is set by your Program. It requires that the Class… Read More »

Given a valid path, this code uses Windows API calls to determine the number of bytes in the specified directory, including all subdirectories. Module Option Explicit ‘API constantsPublic Const MAX_PATH = 260Public Const INVALID_HANDLE_VALUE = -1Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 ‘API typesPublic Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd Type Public Type WIN32_FIND_DATA    dwFileAttributes As Long    ftCreationTime As FILETIME    ftLastAccessTime As FILETIME    ftLastWriteTime… Read More »

Given a valid path, this code will return the number of files in the specified directory. Module Option Explicit ‘API constantsPublic Const MAX_PATH = 260Public Const INVALID_HANDLE_VALUE = -1Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 ‘API typesPublic Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd Type Public Type WIN32_FIND_DATA    dwFileAttributes As Long    ftCreationTime As FILETIME    ftLastAccessTime As FILETIME    ftLastWriteTime As FILETIME    nFileSizeHigh As Long    nFileSizeLow As Long    dwReserved0 As… Read More »