‘ Save the content of a FlexGrid control as a CSV-file’ Example: SaveCSV(“C:Test.csv”, MSFlexGrid1)Private Sub SaveCSV(ByVal strFilename As String, ByRef msFlex As MSFlexGrid) Const SEPARATOR_CHAR As String = “,” Dim
‘ This VB6 function returns a string with a set of parameters replaced with ‘ variables, similar to the C function printf().Public Function PrintF(strMask As String, ParamArray Values()) As String
‘ *** International date handlerPublic Enum eDateLocale edlArabic = &H401 edlDanish = &H406 edlGerman = &H407 edlSwissGerman = &H807 edlAmerican = &H409 edlBritish = &H809 edlAustralian = &HC09 edlSpanish =
‘ Set the printer with the input name as the default printer for *this ‘ application* (not for the whole system)Function SelectPrinter(ByVal printer_name As String) As Boolean Dim i As
Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (pDst As _ Any, pSrc As Any, ByVal ByteLen As Long)’ This is a replacement for the “Replace” function provided by VB6,’
‘ Do the check spelling on the input text’ Returns the input text with the corrections applied from the Word’s check-‘ spelling dialog’ Note: it requires a reference to the