‘ Return True if a character belongs to a given catagory” CHARTYPE can be the sum of one or more of the following values’ 1 = Uppercase alpha char [A-Z]’
‘ Returns an array with the first N prime numbers” Note: you can easily convert this routine to VB4 and VB5 by’ returning the result array through an argument instead
Private Declare Function LoadStandardIcon Lib “user32” Alias “LoadIconA” (ByVal _ hInstance As Long, ByVal lIconID As Long) As LongEnum SystemIconConstants IDI_Application = 32512 IDI_Hand = 32513 IDI_Question = 32514 IDI_Exclamation
Private Type PICTDESC cbSize As Long pictType As Long hIcon As Long hPal As LongEnd Type Private Declare Function OleCreatePictureIndirect Lib “olepro32.dll” _ (lpPictDesc As PICTDESC, riid As Any, ByVal
‘ Move and resize a ProgressBar control so that it fits inside’ a StatusBar’s Panel.” The last argument is the panel index (one-based).Sub MoveProgressBarIntoPanel(pb As ProgressBar, sb As StatusBar, _
Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type PICTDESC cbSize As Long pictType As Long hIcon As Long hPal As LongEnd
Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd TypePrivate Declare Function GetObjectAPI Lib “gdi32” Alias
Private Declare Function LoadIconByID Lib “user32” Alias “LoadIconA” (ByVal _ hInstance As Long, ByVal lpIconName As Long) As LongPrivate Declare Function DrawIcon Lib “user32” (ByVal hDC As Long, _ ByVal
You probably use the Format function to format date, for example: ? Format(Now, “mm/dd/yyyy”) ‘ => 08/01/2001 ? Format(Now, “mm+dd+yyyy”) ‘ => 08+01+2001 It seems that this is everything you