These are cut and paste code examples. 
1. If no form data is in the example just paste into the GB32 editor and Run
2. If Form data is present paste into a text editor and then save as FILENAME.G32. 
3. Load FILENAME.G32 into GB32 Editor
The Form data will then be present in The Editor.
The Back Button Will Return you to the Menu Area

'#E# 'CaretFlashSpeed 'Add 1 Command Button and 1 Timer to your form. 'Insert this code to the module : Declare Function GetCaretBlinkTime Lib "user32" () As Long 'Insert the following code to your form: Global scrCaretFlash LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() timer1.Interval = GetCaretBlinkTime() scrCaretFlash = GetCaretBlinkTime() MsgBox "Caret Flash Speed = " & GetCaretBlinkTime() & "ms" End Sub $DatFile $FormVersion = 2 :{frm1 143, 143 LCAUDtWMDCwjA4HAPCQArAvAPNxbBhVIxH3PxTQ5vRyUG/a9PcxRyPwPvX7bfM+q6v03PoERoXRo XRwTLiUjSAx8bpgheEKc8Gv0F24tvqZERQICbERYHRIEAC7IkV79lCQhFpLsMuI8rI8LlIiCV3pr oUYEBxKGkXAE3FWYOngWl/KPes2VMiIiIEEAAAA= $LanguageId = 0409 $DatFile

'AddNewHardWareDialog 'Launch Windows Add New Hardware wizard //* you can either use: ~Exec("control.exe", SysDir + "\sysdm.cpl") //* or //* Void Exec("control.exe", SysDir + "\sysdm.cpl") //* if you want to work with the return value, be sure to have the //* correct variable type. Shell does not return a Double, but it does //* return a 32 Bit Integer, so the correct declare is: //* Local RetVal As Int ' or Local RetVal% //* RetVal = Exec("control.exe", SysDir + "\sysdm.cpl")

'AddPictureAtRun 'Add 1 PictureBox to your form. 'Insert the following code to your form: Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 'Replace the 'c:\MyPic.bmp' below with your picture file name Picture1.Picture = LoadPicture("c:\gb32\gb3splash.bmp") End Sub $DatFile $FormVersion = 2 :{frm1 106 EAAAAUCRAAQJEBAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAQl2Y0VnclFDARBAgZPEAAM8QAAaOFBAIQTkDAEYBAAAgAAAAAAAAAA== $DatFile

' Add/Remove Programs Dialog 'Launch Windows Add/Remove Programs Dialog ~Exec("control.exe", SysDir + "\appwiz.cpl")

'AppPath Dim ExecPath As String ExecPath = App.Path + "\" Message ExecPath //* There is no need for the (more time consuming) Iif-clause. //* GB32 always returns the path without the leading backslash //* when calling App.Path, so just add one.

' AutoRedraw LoadForm frm1 ' change to your pic Picture1.Picture = LoadPicture("C:\gb32\gfa32.gif") ' Loads the logo.gif picture. With frm1 'lets force a print AutoRedraw = 1 Print "Printing on a Form With GB32" End With Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 142, 144 KCAUDtWMCCAkA0HAQCQAxAxTU4vlpXZEjs/EvFiE31vWTMxLXy3NT8GpyIzj3n23QiHCEiI8rI8r IYeRIeUCL3W2LkAHBSSpWKSjnWq2rbERwIiXJiPiYCExHBq10GYr6FsiHUFvRF4wcRgtMCdhI+Ii IiwUGmXAIeqVAFyFhfFPXOOh+RctjIiIiZAAAA== $LanguageId = 0409 $DatFile

'AddToDocuments Declare Sub SHAddToRecentDocs Lib "shell32.dll" _ (ByVal uFlags As Long, ByVal pv As String) 'Now that the function has been declared, the following code can be used to add a file to the list. Dim NewFile As String NewFile = "c:\gb32\wavefix.txt" Call SHAddToRecentDocs(2, NewFile) 'You can also clear the list of files by using the following code. 'Call SHAddToRecentDocs(2, vbNullString) //* shorter: //* ~SHAddToRecentDocs(2, 0)

' CAPSKEYOnOff Dim KeyState|(256) ' This line is in the PROC Initialise KeyState|(VK_CAPITAL) = 0 ~SetKeyboardState(V:KeyState|(0)) Delay 2 KeyState|(VK_CAPITAL) = 1 ~SetKeyboardState(V:KeyState|(0))

' CARET SHOW/HIDE 'CaretShowHide Global vbchecked = 1 'Add 1 Text Box and 1 Check Box to your form. 'Uncheck the Check Box to hide Text1 Caret. Check it again to return the caret. 'Insert the following code to your form: Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long Declare Function ShowCaret& Lib "user32" (ByVal hwnd As Long) Form_Load Do : Sleep : Until Me Is Nothing Sub CheckCaret() If Check1.Value = vbchecked Then ~ShowCaret(Text1.hWnd) Else ~HideCaret(Text1.hWnd) End If '##E# End Sub Sub Form_Load() LoadForm frm1 Check1.Value = 1 End Sub Sub Text1_Change() CheckCaret End Sub Sub Text1_GotFocus() CheckCaret End Sub $DatFile $FormVersion = 2 :{frm1 164, 173 gCAUDtWMYCQrAMJAtCQA2AxLwPxTj8W9IQhOh8E914jMp0PDXMxHt8DcJWHP1IRVDhfazVfn4/uQ EREREREc3IEXMhlqMwLkQHhAKvyTkIyyrldVjICCR8KR8RETAI+IScNNeXYEP7MgNb4DWLCsJlQn krZXpocbHOR8KR8REREzEsam2XgI85oFB8MIzYDQQ1gE6REhREfERERE0pGRbeREAAA= $LanguageId = 0409 $DatFile

'CbAdditem ' one form ' two comboboxes -cb1,cb2 Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 Dim Search As Integer For Search = 1 To 10 cb1.AddItem CStr(Search) Next For Search = 5 To 12 cb2.AddItem CStr(Search) & "%" cb2.AddItem CStr(Search + 0.5) & "%" Next End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 171, 184 nCAUDtWMfCAuAoJA//PAFQAAAAQpEFxAH4CAAYZRAAQYFBDAVYmctFDATUKAAQYTTByUh52cgMVZ ylmZAAAAAgAAAA4DAAAgAAAABAwBRcwBSMmYxAADAAojDBAAWMEAQFRRAAYnDNBABGRKAUwEnEBL HgAEjJmMAwAAAY5QAAwhEdxDScgFtRWMAMAAgbKRAAnHFBAgZTEAArARQAQgFhXa0NhICAQABAAA $LanguageId = 0409 $DatFile

'CDDriveLetter Declare Function WNetGetConnection Lib "mpr.dll" _ Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, _ ByVal lpszRemoteName As String, _ cbRemoteName As Long) As Long Dim sDrive As String Dim sPath As String Dim lSize As Long Dim lType As Long Dim x As Integer For x = 0 To 25 sDrive = Chr$(x + Asc("A")) & ":" lType = GetDriveType(sDrive & "\") If lType = DRIVE_CDROM Then MsgBox sDrive & " is a CDRom" ElseIf lType = DRIVE_REMOTE Then sPath = Space$(512) lSize = Len(sPath) - 1 If WNetGetConnection(sDrive, sPath, lSize) = 0 Then //* VB does not know the ZTRim function that //* makes all these steps obsolete: sPath = ZTrim(sPath) °lSize = InStr(sPath, #0) °If lSize > 0 Then °sPath = Left$(sPath, lSize - 1) °Else °sPath = " *** path size error ***" °End If Else sPath = " *** unable to get path ***" End If MsgBox sDrive & " " & sPath End If Next x

' ChangeCaptionColor Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 //* ATTENTION: //* SetSysColors returns a "%", i.e. a 32 Bit Int. t& is a //* 16 Bit Int which is wrong. Use t% instead //* Additionally, you should never use SetSysColors without //* asking the user first. All your changes apply system-wide //* and are not restricted to your local application! Local t% t% = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 255, 255)) End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 112 EAAAAeHRAA4dEBAAWWEAAEWR4AQFD9GbvJHIDhWYudWZAMRpAAABNNFITFmbzByUlJXamBAAAAAC AAAgPAAAACAAAEAAHAAgAAwYtRWMAMAAAxORAAcGFBAgKREAAi+QQAQgFhXa0BAAAAAAAAQABA== $LanguageId = 0407 $DatFile

'Create a form 'Add two command buttons 'Add one text box LoadForm frm1 Do : Sleep : Until Me Is Nothing '##E# //* Example (German for I wish you a happy/great day) Message "UCase: "#13 + _ UCase("Ich wünsche einen schönen Tag.") + #13#13 + _ "Upper:"#13 + _ Upper("Ich wünsche einen schönen Tag.") Sub Command1_Click() 'Converts the text in the text box to UPPERcase //* You should use Upper(Text1.Text) instead. //* UCase converts 7 Bit Ascii/Ansi only and //* misses the German Umlauts etc. Rem Text1.Text = UCase(Text1.Text) Text1.Text = Upper(Text1.Text) End Sub Sub Command2_Click() 'Converts the text in the text box to lowerCase //* You should use Lower(Text1.Text) instead. //* LCase converts 7 Bit Ascii/Ansi only and //* misses the German Umlauts etc. Rem Text1.Text = LCase(Text1.Text) Text1.Text = Lower(Text1.Text) End Sub Sub Command3_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 234, 258 mDAUDtWMeDgABkNA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcAFUVGe0FDALAAgZPEAAA3QAAEbFBAcPUUKAEYEvAQBTkiE edgL+/HAA0WYrVGI1BHclJHIjF2clBAAAM0bt1WYuRWMAMAAABDRAAbKFBAQdREAAY5QRAQgVFRK UsTABEAFnAgMRoCAsPBKFAcGEBAAlGhKCw0b3dBHIcAFzAwAAAdRFBAkrUEAAiGRAAojDBBABWEe pRnFkAAA $LanguageId = 0407 $DatFile

'##E# ' ChangeFormBkColor LoadForm frm1 //* Quite shorter, and does not require a lib at all: If MsgBox("The form's backolor is " & Me.BackColor & _ #13#10"Would you like to change it to Red?", MB_YESNO) = IDYES Me.BackColor = $FF EndIf //* Especially the codecs for chars in Pascal like syntax //* #(charactercode) are quite shorter and even does not //* require a string concenation sign (+,&), if concenated //* with string contents (something like "here is content"). Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAkzEBAQhUEAAIFRAAoyDBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

'ChangeLabelColor LoadForm frm1 cmd1.SetFocus '##E# Do : Sleep : Until Me Is Nothing Sub Label1_Click Label1.BackColor = RGB(55, 0, 255) Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 176, 184 sCAUDtWMkCAuA8JA4CQA3AvAPBT8WsPCxQ3LF/U5vNSMUEzQSJSIvgxhPxR8mITMYQZ8p9a97hx3 JYERIlRIlRQWLiVDVwR1X2KwgOCDaej3aDd8M9dVjIClIenI+IChgQ8RAb5Z2WBigO7MiLjCeGFu kVw9Qu2ENnTv19nZmZmZGQX7Kyc0tHZTShSEvTEfERERYAWUGoVAIe8ZUU0iqz4ZkQCuaYdpGRER ECCAAAA= $LanguageId = 0407 $DatFile

'##E# ' ChrCharacters LoadForm frm1 Dim I As Integer For I = 1 To 255 List1.AddItem "CHR(" & I & ") = " & Chr$( I) Next I Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 147, 150 PCAUDtWMHCglAIIAWCQAxAxPxTU4+jAFSUz0PNvZDFUEzG2L1+EIa8GFaeiEznmWPP17MIERERER EBzMiOpEMMtdrQjaEEJtebLr7tssVNjICnIeER8REToEfEgU19rQKeCXEIFDLOZgB8pFAdi4Ni4j IiIGDRYuutMqKAEQ5eRAJjA3FBWRrgXST1PiIiImBAAA $DatFile

// ColorDepth // Here's a function that returns the system color depth. // Depths -> 8, 16, 24 or 32 bpp (bits per pixel). Print ColorDepth(); "Is you Color Depth" Print Print "ALT+F4 to Quit" Do Sleep Until Me Is Nothing Function ColorDepth() As Integer Local hDC As Handle, cDepth As Int // Obtain desktop DC hDC = GetDC(GetDesktopWindow()) // Calculate color depth with non-floating point math function cDepth = Mul(GetDeviceCaps(hDC, PLANES), GetDeviceCaps(hDC, BITSPIXEL)) // ReleaseDC ~ReleaseDC(GetDesktopWindow(), hDC) // Return the value ColorDepth = cDepth End Function

'ComboBoxAdditem LoadForm frm1 Combo1.AddItem "This Text Added to ComboBox" Combo1.AddItem "This is second line of text" With frm1 AutoRedraw = 1 Print "Select some combo text then click Clear" End With Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close Sub Command2_Click Combo1.Clear $DatFile $FormVersion = 2 :{frm1 183, 198 zCAUDtWMrCgxAYKAGDQA4AxLwTTEv1PCT8xI/EfNOFTFjlvWyIBNRqt4y+GICexjD9pdWaO99W/f GRE+XE+XEY3I0WShjocLFK+RYQzqs0URWWeymiREBjIeKR8RETgI+IO3mnrUAJeyXEUvgF0NeunS ozIinQEfERExA4c7WTFoUIE4hnRBajCcGP/DTov2mMjIiIiZO3u1UBiKEincGF6MwRPD2cSnQ/I6 pJXwctjIiIiZAAAA $LanguageId = 0409 $DatFile

'##E# ' ComboBoxFonts 'add a combobox to the form 'put the code on the load event of form Global danish LoadForm frm1 For danish = 1 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts (danish) Next Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 144, 147 MCAUDtWMECwkA8HATCQAwAxPxTj4v1PCXQTMSovF1YzjBNR8StPBU+mERkVQ8nmUE9s+/RIiIiIi ICiZEmJkQT1urwiaEA5sirJMaiLLbX1IiwIi3JiPiYCh4j4kbQyVoEh3FhwFI9z4ZeWhuREPiI+I iIiRiUjqCAxj9igRGUgiJeunUon8cxFREREzAAAA $DatFile

' CommandCaption LoadForm frm1 '##E# Do : Sleep : Until Me Is Nothing Sub Command1_Click Command1.Caption = "&Exit" Delay 1 If Command1.Caption = "&Exit" frm1.Close EndIf Sub Command1_DblClick frm1.Close $DatFile $FormVersion = 2 :{frm1 117 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAAgsSEAw9QRAAglEBAgsQUGAE4Qsl2YrBCVvBSR4lGdAAAAAAAA AEQA $DatFile

'##E# °How to make simple picture viewer 'CommonDialogFileSelect °On Form ( Form1 ) put : ° °PictureBox ( Picture1 ) ° °Common Dialog ( CommonDialog1 ) °Form Code : LoadForm form1 Picture1_Click 'Form_Load '##B# Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm form1 Picture1.AutoSize = True End Sub Sub Picture1_Click() CommonDialog1.Filter = "JPG files (*.jpg)|*.jpg|BMP files (*.bmp)|*.bmp" CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Sub cmd1_Click form1.Close $DatFile $FormVersion = 2 :{form1 170, 180 mCAUDtWMeCAtAkJA0CQA2A/EPNR8WSPCxE6LwXjLbEi0vW/DDFRJj8ShzT2NR4UERdy8p97WfDrR EREREREkzI0SUBHmu9EY0jwAmlklmIWJLkuLzIiAREvTEfEhQQI+IoteycdROBugNrLC9KUJlBQ6 HkwWJiPiIiIKzuNFvVjqJ0JoFh+FwZkR4XR4XKREhXTcCAhqTGBoMCeX8oLKhdCeljIiICBBAAA= $LanguageId = 0409 $DatFile

'##E# 'ConfigLPT1 Declare Function ConfigurePort _ Lib "winspool.drv" Alias "ConfigurePortA" _ (ByVal pName As String, ByVal hwnd As Long, _ ByVal pPortName As String) As Long LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() Call ConfigurePort("", Me.hWnd, "COM4") Call ConfigurePort("", Me.hWnd, "LPT1") End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 152, 153 UCAUDtWMMCQmAcIAZCQAyAxTAFvl0jwEvA/EPNfN+IYMS/M4XIVMiY4+UPvNiw1jsQkW/+nREl/F l/FB1MCtEVgR0tdCKcjwgllilmJQFLcurYERQIinREfExEAiPCJ1u1M9cChALyLemShOiMKoHnwW S1Uc5pAT1VOiIiImhW75ECRB+iHUG6kvIIdQC7k4KHREREzAAAA= $LanguageId = 0409 $DatFile

' ConvertBytesToMB Print SetBytes(1400326) Delay 4 Function SetBytes(Bytes) As String On Error GoTo done If Bytes >= 1073741824 Then SetBytes = Format(Bytes / 1024 / 1024 / 1024, "#0.00") _ & " GB" ElseIf Bytes >= 1048576 Then SetBytes = Format(Bytes / 1024 / 1024, "#0.00") & " MB" ElseIf Bytes >= 1024 Then SetBytes = Format(Bytes / 1024, "#0.00") & " KB" ElseIf Bytes < 1024 Then SetBytes = Fix(Bytes) & " Bytes" End If Exit Function done: SetBytes = "0 Bytes" End Function

'ConvertKBMBGB LoadForm form1 AutoRedraw = 1 Print "Number to Convert /Press Enter" Global b As Integer// = 10241024 '##E# Input b Do : Sleep : Until Me Is Nothing Function SetBytes(Bytes) As String On Error GoTo done If Bytes >= 1073741824 Then SetBytes = Format(Bytes / 1024 / 1024 / 1024, "#0.00") _ & " GB" ElseIf Bytes >= 1048576 Then SetBytes = Format(Bytes / 1024 / 1024, "#0.00") & " MB" ElseIf Bytes >= 1024 Then SetBytes = Format(Bytes / 1024, "#0.00") & " KB" ElseIf Bytes < 1024 Then SetBytes = Fix(Bytes) & " Bytes" End If Exit Function done: SetBytes = "0 Bytes" End Function Sub Command1_Click AutoRedraw = 1 Print "Number to Convert "; b Print SetBytes(b) Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{Form1 149, 153 RCAUDtWMJCQmAQIANCgA2ADpPNR8mHzHT/T814UMkMe8MUjUBFSYUYlI3Z3b0fTIyofavWfDAMiI gn3U0igdHhWjLwIKrKFKwjwgpljl2T1xyT2UMiIIEhNjIsjIEi6qiU6qqq9QliJiMDfEdQk8G+IX lQPdfueyYPgnUIQBWpwLmAHqOoDqDH0bQcWIheD2kDrAAAA= $LanguageId = 0409 $DatFile

CopyMove Sub CopyMove() Dim strSource As String Dim strTarget As String Dim lngRetVal As Long ' SET PATHS strSource = "C:\gb32\wavfix.txt" strTarget = "C:\zips\hold\wavfix.txt" '// Copy File lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), False) If lngRetVal Then MsgBox "File copied!" Else MsgBox "Error. File not moved!" End If strSource = "C:\zips\hold\wavfix.txt" strTarget = "C:\zips\temp\wavfix.txt" '// Move File lngRetVal = MoveFile(Trim$(strSource), Trim(strTarget)) If lngRetVal Then MsgBox "File moved!" Else MsgBox "Error. File not moved!" End If End Sub

'##E# 'CurAsMousePointer 'First select a form or a control and set the 'MousePointer property to 99-Custom. 'Then you load an .ico file into the MouseIcon property ' using the LoadPicture function. LoadForm form1 form1.MouseIcon = LoadPicture("c:\gb32\across.cur") Do : Sleep : Until Me Is Nothing Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 108 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAjBAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAAg3PEAQBSRAAGkEBAgZPEEAEYR4lGdAAAAAAAAAEQA $DatFile

'CurrentTime: MsgBox Format(Time, "Long Time") & " - " & Format(Date, "Long Date")

' DefaultPrinter Global DefPrinter = Printer.DeviceName Print DefPrinter; " Is Default Printer" Print "Alt-F4" Do : Sleep : Until Me Is Nothing

'DisableCommandButton LoadForm frm1 frm1.BackColor = RGB(192, 192, 192) Command1.Caption = "Disabled" Command1.Enabled = False AutoRedraw = 1 Print "Wait For Exit Button" '##E# Delay 2 Command1.Caption = "Exit" Command1.Enabled = True Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 108 EAAAAg6QAAAqDBAAWWEAAEWRwAQFmJXbxAwEcCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAAArSEAAdSRAAI0EBAAYPEEAE4YtRWMAAAAAAAAAEQA $LanguageId = 0409 $DatFile

'##E# ' DisplayAllFonts 'Add 1 List Box to your form. The List Box will be populated with all installed fonts. 'When you click on one of the fonts, the List Box will change its font to the clicked font. 'Insert this code to your form: Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 Dim counter As Integer For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next End Sub Sub List1_Click() Static tempheight As Single If tempheight = 0 Then tempheight = List1.Height List1.Font.Name = List1.List(List1.ListIndex) List1.Height = tempheight End Sub $DatFile $FormVersion = 2 :{frm1 108 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAMl2c0FDANAAAwLEAAM0QAgdgFBAYfU0EAMICAAAgFAAAACAAAAAAAEQB $DatFile

' DoEvents Global ProgramEnd As Bool OpenW 1 Print "Close Me" DoEvents // All pending events processed before Do // entering the message loop Sleep Loop Until ProgramEnd Sub Win_1_Close(Cancel As Bool) ProgramEnd = -1

'DrawAnimatedRects ' FUNCTIONS '##E# Const IDANI_OPEN = &H1 Const IDANI_CLOSE = &H2 Const IDANI_CAPTION = &H3 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function SetRect Lib "User32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function DrawAnimatedRects Lib "User32" (ByVal hWnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 Dim rSource As RECT, rDest As RECT, ScreenWidth As Long, ScreenHeight As Long 'retrieve the screen width and height ScreenWidth = Screen.Width / Screen.TwipsPerPixelX ScreenHeight = Screen.Height / Screen.TwipsPerPixelY 'set the source and destination rects SetRect(rSource, ScreenWidth, ScreenHeight, ScreenWidth, ScreenHeight) SetRect(rDest, 0, 0, 200, 200) 'animate DrawAnimatedRects(Me.hWnd, IDANI_CLOSE Or IDANI_CAPTION, rSource, rDest) 'set the form's position Me.Move 0, 0, 200 * Screen.TwipsPerPixelX, 200 * Screen.TwipsPerPixelY End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAiMFBAIjUEAAyKRAAY2DBBABWEepRHAAAAAAAAABEA= $DatFile

°EnumPrinters w95-98/WNT °Place all this code in a new module Const PRINTER_ENUM_CONNECTIONS = &H4 Const PRINTER_ENUM_LOCAL = &H2 Type PRINTER_INFO_1 Flags As Long pDescription As Long PName As Long PComment As Long End Type Type PRINTER_INFO_4 pPrinterName As Long pServerName As Long Attributes As Long End Type Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" (ByVal Flags As Long, ByVal Name As String, ByVal LEVEL As Long, pPrinterEnum As Long, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Declare Function PtrToStr Lib "kernel32" Alias "lstrcpyA" (ByVal RetVal As String, ByVal Ptr As Long) As Long Declare Function StrLen Lib "kernel32" Alias "lstrlenA" (ByVal Ptr As Long) As Long @enumerateprinters1 Do : Sleep : Until MouseK = 2 'Use for Windows 95 Sub enumerateprinters1() Dim Success As Boolean, cbRequired As Long, cbBuffer As Long Dim Buffer() As Long, nEntries As Long Dim i As Long, PFlags As Long, PDesc As String, PName As String Dim PComment As String, Temp As Long cbBuffer = 3072 ReDim Buffer((cbBuffer \ 4) - 1) As Long Success = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or PRINTER_ENUM_LOCAL, #0, 1, Buffer(0), cbBuffer, cbRequired, nEntries) If Success Then If cbRequired > cbBuffer Then cbBuffer = cbRequired Debug.Print "Buffer too small. Trying again with " & cbBuffer & " bytes." ReDim Buffer(cbBuffer \ 4) As Long Success = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or PRINTER_ENUM_LOCAL, #0, 1, Buffer(0), cbBuffer, cbRequired, nEntries) If Not Success Then Debug.Print "Error enumerating printers." Exit Sub End If End If Print "There are " & nEntries & " local and connected printers." For i = 0 To nEntries - 1 PFlags = Buffer(4 * i) PDesc = Space$(StrLen(Buffer(i * 4 + 1))) Temp = PtrToStr(PDesc, Buffer(i * 4 + 1)) PName = Space$(StrLen(Buffer(i * 4 + 2))) Temp = PtrToStr(PName, Buffer(i * 4 + 2)) PComment = Space$(StrLen(Buffer(i * 4 + 2))) Temp = PtrToStr(PComment, Buffer(i * 4 + 2)) Print PFlags, PDesc, PName, PComment Next i Else Debug.Print "Error enumerating printers." End If End Sub 'Use for Windows NT Sub enumerateprinters4() Dim Success As Boolean, cbRequired As Long, cbBuffer As Long Dim Buffer() As Long, nEntries As Long Dim i As Long, PName As String, SName As String Dim Attrib As Long, Temp As Long cbBuffer = 3072 ReDim Buffer((cbBuffer \ 4) - 1) As Long Success = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or PRINTER_ENUM_LOCAL, #0, 4, Buffer(0), cbBuffer, cbRequired, nEntries) If Success Then If cbRequired > cbBuffer Then cbBuffer = cbRequired Debug.Print "Buffer too small. Trying again with " & cbBuffer & " bytes." ReDim Buffer(cbBuffer \ 4) As Long Success = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or PRINTER_ENUM_LOCAL, #0, 4, Buffer(0), cbBuffer, cbRequired, nEntries) If Not Success Then Debug.Print "Error enumerating printers." Exit Sub End If End If Debug.Print "There are " & nEntries & " local and connected printers." For i = 0 To nEntries - 1 PName = Space$(StrLen(Buffer(i * 3))) Temp = PtrToStr(PName, Buffer(i * 3)) SName = Space$(StrLen(Buffer(i * 3 + 1))) Temp = PtrToStr(SName, Buffer(i * 3 + 1)) Attrib = Buffer(i * 3 + 2) Debug.Print "Printer: " & PName, "Server: " & SName, "Attributes: " & Hex$(Attrib) Next i Else Debug.Print "Error enumerating printers." End If End Sub

Declare FunctionA ExtractIcon Lib "shell32.dll" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Global hIcon As Handle, hIcon1 As Handle hIcon = ExtractIcon(App.hInstance, WinDir$ + "\" + "Explorer.exe", 0) hIcon1 = ExtractIcon(App.hInstance, WinDir$ + "\" + "Notepad.exe", 0) OpenW 1 AutoRedraw = 1 ~DrawIcon(Win_1.hDC, 0, 0, hIcon) ~DrawIcon(Win_1.hDC, 40, 0, hIcon1) Do Sleep Until Me Is Nothing

' FileDateTime ' Shows when file created or last modified ~MsgBox(FileDateTime(WinDir$ + "\" + "Notepad.exe"))

'FilesOfType LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmdGetFilename_Click() Dim sFilename As String Dim sPath As String '##E# 'search for files with txt extension sPath = "c:\gb32\\*.txt" 'use Dir$ to get first matching filename sFilename = Dir$(sPath) 'retrieve remaining files matching the search pattern 'Dir$ returns zero length string when no match Do While sFilename > "" ListBox1.AddItem sFilename 'call Dir$ without parameters to get next filename sFilename = Dir$ Loop End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 206, 208 KDAUDtWMCDA0A0LA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcwJj1GZHVGdGlGbl5WYtVGADAAADTEAQjRRAAg0EBAQhQ0G AEITpNHdg4CVYRFIRYCAzRxaBEQARcxBTI0b4FDANAAA0OEAAYxQAAyXFBAYMT0EAMYEpBQBTcWE sAQBQgGAxERXQUyBMAJHFBAwGREAAcARQAQgFhXa0ZRTAAA= $DatFile

' FindAllDialog OpenW 1 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim strPathToSearch As String strPathToSearch = "C:\" Call ShellExecute(Me.hWnd, "find", strPathToSearch, #0, #0, SW_SHOWNORMAL)

'FontExists LoadForm frm1 Const vbTextCompare = 1 Global f = "verdana" Global x x = FontExists(f) With frm1 AutoRedraw = True Print x, f, "Font Exists" End With If FontExists("courier") Then Text1.FontName = "Verdana" End If Do : Sleep : Until Me Is Nothing Function FontExists(FName As String) As Boolean Dim oFont As New StdFont Dim bAns As Boolean oFont.Name = FName bAns = StrComp(FName, oFont.Name, vbTextCompare) = 0 FontExists = bAns End Function Sub cmd1_Click frm1.Close

' FontsInstalled 'Add 1 List Box to your form. The List Box will be populated with all installed fonts. 'When you click on one of the fonts, the List Box will change its font to the clicked font. 'Insert this code to your form: Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 AutoRedraw = 1 Print "Click On A Font" '##E# Dim counter As Integer For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next End Sub Sub List1_Click() Static tempheight As Single If tempheight = 0 Then tempheight = List1.Height List1.Font.Name = List1.List(List1.ListIndex) List1.Height = tempheight End Sub $DatFile $FormVersion = 2 :{frm1 108 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAMl2c0FDANAAA0KEAAQzQAA/hFBAkcU0EAMICAAAgFAAAACAAAAAAAEQB $LanguageId = 0409 $DatFile

'' FormBackColor ' Changing a Forms BackColor LoadForm frm1 Center Do Sleep Until Me Is Nothing Sub frm1_Load Local i cmd1.Caption = "Wait" frm1.Caption = "Changed" For i = 2 To 255 Step 20 frm1.BackColor = RGB(220, 220, i) Delay .5 Next i '##E# frm1.BackColor = RGB(255, 250, 225) Print : Print Print "Pic Loaded" Print "Exit Ready" cmd1.Caption = "Exit" End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{1} 450, 790 +GAUDtWM2GgFDEbAaHgBkBTM5f3n5vbETsR90q0fUJfW/e//4MBFiEBFBK1YXQhIL+HPB1qEyvQe TEy7z/XEj4i7ubKFggiAAZQSQMAQACIkEARAIBRAI0wQCIUNoHQAbiA1AoCfwCHgZNE4fEChwQYI ITWcCAHBod0wWLoJYLILEcepKkuMdV2KhtSIFkHCyneCylkiPRDlALWsiCmmK/hw/0T4XSK+ENET L/hatWnKQo0Wq9ev3Jlz58UpJK7u2rz1/x7xxz7xceWaftvOrPbNL+26lik6OqmJFjH5biWQwx68 8kjQ+SR74neX9/HJpTuaLiPnlOruru+1vUNc79CGHqn7TOK3EvJaxcY9SRxq4zaEPh5IiK7cZnj2 D5ouLKxyFjtyzmghLabCGuct1OmkN86fTTa4NvpJN8m30kGezbaSx4mgjtyTM2Mdf6fv6u3r99al 07949Jm0u/t2cyxp0+rZRPFmdndPGLop3fjkbLWzM7a7dp9dDTOiCbL8CfdOs69U/1jdRIJ91dzs 7BFpXIdm965NgrJfH908FWaL3WvhCnmWOBn9J3eI1SjZ/15++cHOgAZB9XMG2DN+KBAA :{frm1 109 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcQAACAAj1GZxAwAAAUoEBAQhUEAgqSRAAsCEVBABWEepRHIG9mctBAAAAAAAAQABA== $LanguageId = 0409 $DatFile

'FormBigFont LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click Dim i, x, y Me.FontSize = 26 Me.ForeColor = 0 : x = CurrentX : y = CurrentY Print "Gfa Software Technologies" //' Here goes your text. x = x + 1 : y = y + 1 : CurrentX = x : CurrentY = y '##E# Me.ForeColor = 255 Print "Gfa Software Technologies" Sub Command_Exit_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 155 EAAAAAAAAAAAAAAUrXEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAAAwPEAQQSRAAOiEBAAhPUEAE4Qsl2YrBAAAAAAAAQABM0bt1WY uR2XFhXa0BwAAAZDFBAkrUEAAbERAAQpDBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

'FormCheckered LoadForm form1 Do : Sleep : Until Me Is Nothing Sub Command1_Click Local mycolor, h, w AutoRedraw = True Cls ScaleHeight = 4 ScaleWidth = 4 mycolor = 0 For h = 0 To 3 For w = 0 To 3 Line (w, h)-(w + 1, h + 1), QBColor(mycolor), BF mycolor = mycolor + 1 Next w Next h End Sub Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{Form1 148, 156 QCAUDtWMICAnAMIAQCgA3A3LwTj82PeIBHj8E910RNU8YUzRCPoIRIYVn2xdB1JeT9PAAUiw0JlM GQRgOjQNJFQcbbUBD6RoAUsEV1pWiMbZ3IigQEPiI+IChYkmhyt22q6IRFGRgHXUsyoA7FP5TL8v F62FvttloJBLEs4MWsCjAOxMMBlRcexz+cC/krMWNMAAAA== $LanguageId = 0409 $DatFile

'FormHiliteAllText LoadForm frm1 Center '##E# ' The file Demo is stored in the :Files section, ' it's an rtf file. Open ":wavfix" for Input As # 1 Text1.Text = Input$(LOF(# 1), # 1) Close # 1 Do Sleep Until Me Is Nothing Sub cmd2_Click frm1.Close EndSub Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub $DatFile $FormVersion = 2 :WavFix 482, 749 eHAUDtWMWHQ7CEdAFIgBudvAvRBVRBREdEV8i/WIpFCFjMWExEyIRETQhFRIBKxJSI1SRMyYh9r9 eo+zbPAGo4ghEQyA4BoACADVGgAgPQAwBMAIex9C58NxWqwKfXY2giEHScAoc5utnn52K9LbCi77 /tJbPzzZyTbhn2ers3bU33gRogjzi854LxCe6r3dnFq5YtX65Cea9esSb3ZZtmuEvULvbGDKknr9 78chxatNfeJPYAInF75fSztiULlpzgji//5ekZLtGLx3cdzoArnFC1NXGcn4uWfnwX4qvSqErFOx aORevo2rzS+ukt4LcYvxN+22tobw5lwjU+S4hZnX+HSb3eqhlGvi/WKuKCcaUvReQrH+HcWHFJw9 fKm146oo8z5zAI+4HCLMuzUb394GaG86R+AiGBjK2fvO+EHOIofDWhHxnFKNqt1OEY/U0K1rK6P+ jp4I1FQ93GtMc/hLJbUe8n7xRXPQKmaig43HA+qKGQyFCHyTwTG9nP0dU0abRGmGG8OZ+AOsGR2T rkZpCajocKOCyJ3HlkLsNaYgZ5t4UFAHiWU67+CFLx6vJMGQQukff/vLoK/XIHnnL8MBspvn5cmo tFdWDaiv359MreRfNTeulo1KYZdvdKxBAAA= :{frm1 200, 200 EDAUDtWM8CAyAcLAIDQA7AvAPNybFtcIx8DEPRfNRPCGZWzQkEc8jUpQ0QBmYEjEi+5KT9d+vHwS I0JkCBNbhpLbB9ybTBLvi1eFk4PEW89V+OnNX+iirvhQIYIE6OCheIEGCPheIMG3zXBFhu9UI8kC FR2CddNVh/QIEEEC9QIcEMGPXLnl3q1YpOnvLnlx4eW29eIMwwdIEXvChgTtrmCHBXTbBvKbBvhW IQJ5J832r5QIECJrVnSLt9auMeXEqumDhhBAAAA= $LanguageId = 0409 $FileFlags# = 2 $DatFile

'FreeDiskSpace '##E# LoadForm frm1 AutoRedraw = 1 Do Sleep Until Me Is Nothing Sub Command1_Click() Dim llResult As Long Dim llTotal As Large Dim llFree As Large Dim llAvailable As Large llResult = GetDiskFreeSpaceEx("c:", *llAvailable, *llTotal, *llFree) If llResult > 0 Then Print "Total Bytes: " & Format(llTotal * 10000, "#,##0") Print "Free Bytes: " & Format(llFree * 10000, "#,##0") Print "Available: " & Format(llAvailable * 10000, "#,##0") EndIf End Sub Sub Command2_Click frm1.Close EndSub $DatFile $FormVersion = 2 :{frm1 157, 160 ZCAUDtWMRCAoAwIAUCgA3A3LwTU8WhPChEcMvUPNfNOWk0PD1ckEkqSEGah92ESGTdfaG/r+98uA AUiIY7JZMgigcGhZSKgwUuRFMQHhCQxS00FbJuyqMjICCR8Ii4jIEiRaGNPodb6iEVYE+OZE9FP9 LCaHmQn3aX4k3tEpaScloJBLEsINWsCj4xfhvWGB4LC4eOheyV1mCHAAAA== $LanguageId = 0409 $DatFile

' GetDoubleClickTime Print GetDoubleClickTime(); " Is the double click time" Print "2 secs" Delay 2

' GetSerialNumber LoadForm frm1 Do Sleep Until Me Is Nothing Function GetSerialNumber(strDrive As String) As Long Dim SerialNum As Long Dim Res As Long Dim Temp1 As String = String$(255, Chr$(0)) Dim Temp2 As String = String$(255, Chr$(0)) Res = GetVolumeInformation(V:strDrive, V:Temp1, _ Len(Temp1), *SerialNum, 0, 0, V:Temp2, Len(Temp2)) '##E# GetSerialNumber = SerialNum End Function Sub Command1_Click() MsgBox(GetSerialNumber("C:\")) End Sub Sub Command2_Click frm1.Close EndSub $DatFile $FormVersion = 2 :{frm1 146, 154 OCAUDtWMGCgmAEIALCgA1AhQPRxbxjARXEDP+Xzb2QB9Y4lExokYiM5of5WcDF0nmx63GIIERESl TdUAvR0LpAhqusYQgcEC8M1MbbqamI1dVl8ODjIelI+IiJOp7ggDqscbTUMq4hnxDYjndGBn0K8l gVNTNPLgzMWgOLURFBacBNlNCiZEsSnwf56ilBGAAAA= $LanguageId = 0409 $DatFile

'GetSystemDirectory OpenW # 1 Local k% @GetSystemDir$() Print "Press key" KeyGet k% CloseW # 1 End Sub GetSystemDir$() Local Buffer$ = Space$(244) ~GetSystemDirectory(V:Buffer$, Len(Buffer$)) Print ZTrim$(Buffer$) + "\" End Sub

'##E# ' GetSysTime '--------------------------------------------------------------- Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type LoadForm frm1 Do Sleep Until Me Is Nothing Sub Command1_Click() Dim mySysTime As SYSTEMTIME ~GetLocalTime(mySysTime) ' Print result Print mySysTime.wYear Print mySysTime.wMonth Print mySysTime.wDayOfWeek Print mySysTime.wDay Print mySysTime.wHour Print mySysTime.wMinute Print mySysTime.wSecond Print mySysTime.wMilliseconds End Sub Sub cmd1_Click frm1.Close EndSub $DatFile $FormVersion = 2 :{frm1 145, 150 NCAUDtWMFCglAAIAICgA2ADpPV+b9jQMEKCjPNxbBRFFSTSQFFc8kQ3pVIZRB+pZ/SvT8ZYERE34 MFFwZEqJpgBS9GVggcEG0WtV12Xbd1lRecKFlIeCR8RECRdVhRkZ3q2ERFT80NjAOrI8yIgZaFcX s+a4kbXLejgAwWyDQg2UCUp8XGBbRngbSVGKENAAAA== $LanguageId = 0409 $DatFile

'GetTickCount '##E# $Library "vbconstants.lg32" LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() Dim lngTickCount As Long lngTickCount = GetTickCount() ~MsgBox("You have been using your computer for:" & _ vbNewLine & " * " & CStr(lngTickCount) & _ " milliseconds, or" & _ vbNewLine & " * " & CStr(Round(lngTickCount / 1000)) & _ " seconds, or" & _ vbNewLine & " * " & CStr(Round((lngTickCount / 1000) / 60)) & _ " minutes", vbInformation) Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 155, 158 XCAUDtWMPCgnAoIAeCQAxAxTU8Wwyjw8Bi/EPNfNvRRgUE9nmSTcxIyPgkVjbe185b1zI+OAAiIi IiIiQ/iIPQBGR11JoANCAwsUsSTXFLPVeiREBiIeGR8RETQI+Ik6dTTNnQIwxsiHVFg5cRoXGhtU vAJK7pqQz1LiIiImRq3NN1IFChP2K4achP1KYJUQC7DJP5IiIiYGAAA= $LanguageId = 0409 $DatFile

' GlobalMemStatus Declare Sub GlobalMemoryStatus Lib "kernel32" Alias "GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS) Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long '##E# dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Global Mem As MEMORYSTATUS 'Add this code to get the values: LoadForm frm1 Mem.dwLength = Len(Mem) GlobalMemoryStatus(Mem) Do : Sleep : Until Me Is Nothing 'After calling the GlobalMemoryStatus API, 'you can use the MEMORYSTATUS type to access 'the memory information: 'Mem.dwMemoryLoad contains percentage memory used 'Mem.dwTotalPhys - total amount of physical memory 'Mem.dwAvailPhys - available amount of physical memory 'Mem.dwTotalPageFile - total amount of memory in swap file 'Mem.dwAvailPageFile - available amount of memory in swap file 'Mem.dwTotalVirtual - total amount of virtual memory 'Mem.dwAvailVirtual - available amount of virtual memory 'You can use the following to set the caption 'of Label1 to the amount of physical memory available: Sub Label1_Click Label1.Caption = Str(Mem.dwAvailPhys) ' Label1.Caption = Str(Mem.dwMemoryLoad) 'Label1.Caption = Str(Mem.dwTotalVirtual) Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 167, 175 jCAUDtWMbCwrAYJAvCQA3AvAPRh70jQM09T8U/mE2EyERPkcjov8+MUQ0bAJ1IlEh/p9aN2zAYER EREREB6Li9IFUYZ6qtmjVr6KDeS9VnqdAhdEGW5kLT7JbZRiREhSEvTEfEhQQI+IotatpUgICyV8 YrgHoLC0FmwHlpoHyBWL3hSEvTEfEREREhnKQpAQwjeF44cBe4VEQRxI8Pui6REREhgAAAA= $LanguageId = 0409 $DatFile

' ImageCopy LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click °STEP 1: Put this code in the MouseDown code area of the image °and change all the parts with 'scrag' to the image name. scrag.Left = scrag.Left + 120 scrag.Top = scrag.Top + 120 down Local i Delay 1 '##E# Sub down °STEP 2: Put this code in the MouseUp code area of the image °and change all the parts with 'scrag' to the image name. scrag.Left = scrag.Left - 120 scrag.Top = scrag.Top - 120 Sub cmd2_Click frm1.Close $DatFile $FormVersion = 2 :{1} 519, 2710 DIAUDtWM7HglKYfAuIgBBCTHRMREiEUESFWM/D//1EBpRMhISERMRERMhERIRERMzXaEPCf2/uUw vP/7Q5v//KAB7aAwEkFMth4AcDCFgVBRIFQDTICOTvLIh+F2QGYbMpHgYAEwEI4BRhAucEChwQYI QhSq54IgGHTweKkDCDUCBiRThlonYpXC9SoZrJcgIx6S6JdVCkJTOZo1K/hwf7J8XXSPpr0yxfYv TYNJL5rW6ljaZ4fvXKdtG65SDV9naHBGa3ppwYTQYsr8riweJ3ZvlU1gSH0jVRND9Sufut+2hhks nq5OInyeOL9SuzJ3BmkZMdbZ6c2Cx2d1Rf+4ceGMhxosOvjZezwN9E2vVGEhOfkU0L5+yanVov9l tfs/P2NeI6IbfY/XHu74Ns6qKaVvSccu11EsafIsHdHvtZ0FK78CxSX+Q7eVfy7LpO1hopT/ZPdQ NEN1pOEXqiiMqiWhVimGmnXdNhq4Ihh9xVaRGnztWV3Lmz2PntNnB4q+13OwD3AdZ9VNk2AAKOn7 O/ye0x92Vohve/4Fw9cxyoVBHnzzQLatnLyQcHCH9Su/UljlezQ3ToP6oD1SXylUw1jTrxeJXxgL 40TKWhXXR6Gjh+oDGPh+lEfAK09Fdpq7cTJS7YViPuheJ33+ki2Oq38hzhuyv+Us7+QN7veJbl1x EfIzHAAA :{frm1 185 EAAAAUCRAAQJEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAzNmchdGARBAYBSEAAfDRAATMFBAQDSkDAEYBAAAgAAAAAAAABMWbkFDADAA4ETEA QBSRAAojEBAQDQkFAE4QvBXegkUbhdWZAAAAAAAAAEQAj1GZyAwAAAQYDBAEkUEAA9DRAAwwDBBA BWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' ImageStretch ' LoadForm frm1 Image1.Picture = LoadPicture("C:\gb32\gfa32.gif") 'Loads the logo.gif picture. '##E# Image1.Stretch = True ' Resize the picture to fit the image object Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 145, 146 NCAUDtWMFCgkAAIASCQAvAPNR4O/IEzG1Wb8V8WFTRPGjIhVvIPlx8GNIF0j3n2r1z67QEgREhWF hWFBxLi98CJX9WMogMCDSpVu20sSVdZ3IigREvSEfEhQgI+I40LLVxwMeQVEAnwx8CoYLIhPhI+I iIiYg19ajSMAEB1K8wcRMV8MHnw/4JjLiIiIEEAAAA== $LanguageId = 0409 $DatFile

' LBAddFiles 'make sure u add common dialog and have a list box and a command on the form add this code in a command LoadForm frm1 Dim Filename As String Do : Sleep : Until Me Is Nothing //CommonDialog1.Action = 1 Sub cmd1_Click CommonDialog1.ShowOpen Filename = CommonDialog1.FileName List1.AddItem Filename Sub cmd2_Click '##E# frm1.Close $DatFile $FormVersion = 2 :{frm1 225 EAAAAeHRAA4dEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9Wbt9mbElWYs92ZxAAUAAAcCBAgOOEAAA/QAAA8DVAAAAAAMl2c0FDANAAA0KEA AtHRAgGiFBAIBT0EAMICAAAgFAAAACAAAAAAAEQBj1GZxAwAAAsiEBAA0MEAwuQRAAw/DVBABGEZ kBiRpxWZzBAAAAAAAAQABMWbkJDADAAwGTEAw1SRAAGkEBAgsOEEAEYR4lGdAAAAAAAAAEQA $DatFile

'ListBoxAddItem '##E# 'Place the following code in a command button's click event LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmdGetFilename_Click() Dim sFilename As String Dim sPath As String 'search for files with vbp extension sPath = "c:\gb32\*.bak" 'use Dir$ to get first matching filename sFilename = Dir$(sPath) 'retrieve remaining files matching the search pattern 'Dir$ returns zero length string when no match Do While sFilename > "" Listbox1.AddItem sFilename 'call Dir$ without parameters to get next filename sFilename = Dir$ Loop End Sub Sub cmd2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 198 EAAAAeHRAA4dEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZHVGdGlGbl5WYtVGADAAgOSEAgfRRAAM5EBAAwNUEAEIUyV2czBAAAAAAAAQA BMWbkJDADAA41SEAQMTRAA2nEBAAlOEEAEYR4lGdAAAAAAAAAEQAMl2c0J2b4FDANAAAlMEAAYpQ AA/hFBAoMU0EAsICAAAgFAAAACAAAAAAAEQB $LanguageId = 0409 $DatFile

' ListBoxChangeFont ' fonts in listbox will change to selected font '##E# LoadForm form1 AutoRedraw = True Print "Please Select Font" Dim counter As Integer For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next 'List1_Click Code Do : Sleep : Until Me Is Nothing Sub List1_Click() Static tempheight As Single If tempheight = 0 Then tempheight = List1.Height List1.Font.Name = List1.List(List1.ListIndex) List1.Height = tempheight End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 166, 167 iCAUDtWMaCwpAUJAnCQA3AvAPNybVacMEO/EPRfNdgkQfavWjImY/APBRRSMx82ESEEJTdyr8zw3 FYEhozFiOXE6XEmHogiXSNB2DJ5tHeyTB1cZmhkfEGw8GPz1e8SuqIjIClIeIR8RECBi4jglqdbF MiHeFhfF0IfB24kC2KR8Ei4jIiIEIUyuumLRrAQQHvWwBzFPKtI0LnANOwqdERERIIAAAA== $LanguageId = 0409 $DatFile

' ListBoxChangeFont ' fonts in listbox will change to selected font '##E# LoadForm form1 AutoRedraw = True Print "Please Select Font" Dim counter As Integer For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next 'List1_Click Code Do : Sleep : Until Me Is Nothing Sub List1_Click() Static tempheight As Single If tempheight = 0 Then tempheight = List1.Height List1.Font.Name = List1.List(List1.ListIndex) List1.Height = tempheight End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 166, 167 iCAUDtWMaCwpAUJAnCQA3AvAPNybVacMEO/EPRfNdgkQfavWjImY/APBRRSMx82ESEEJTdyr8zw3 FYEhozFiOXE6XEmHogiXSNB2DJ5tHeyTB1cZmhkfEGw8GPz1e8SuqIjIClIeIR8RECBi4jglqdbF MiHeFhfF0IfB24kC2KR8Ei4jIiIEIUyuumLRrAQQHvWwBzFPKtI0LnANOwqdERERIIAAAA== $LanguageId = 0409 $DatFile

'ListBoxToolTips Global r Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() ' LoadForm frm1 Center ' load some items in the list box With Listbox1 .AddItem "Hurst, Joachim" .AddItem "Brown, Bev" .AddItem "Viechtbauer, Georg" .AddItem "Bryant, Dale" .AddItem "Hamstra, Sjouke" .AddItem "Feaver, Mark" .AddItem "Schumacher, James" .AddItem "Hayward, Russel" .AddItem "Funck, Eberhard" .AddItem "Findlay, John" .AddItem "Record, Tom (Tiger)" .AddItem "Kunter, Markus" .AddItem "Deck, Brent" .AddItem "Paterson, Dave" ' highlite item #4 Listbox1.ListIndex = 4 frm1.Caption = Listbox1.ListCount & " Items in ListBox" End With ' End Sub Sub cmd1_Click frm1.Close End Sub Sub Listbox1_MouseMove(Button&, Shift&, x!, y!) Dim index As Integer On Error GoTo endList Local WordHeight = 195 index = Listbox1.TopIndex + ((y) / WordHeight) Listbox1.ListIndex = index Listbox1.ToolTipText = "GFA Programmer" Exit Sub endList: Listbox1.ListIndex = Listbox1.ListCount - 1 Listbox1.ToolTipText = Listbox1.Text End Sub $DatFile $FormVersion = 2 :{frm1 159 EAAAA5MRAAkzEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAMl2c0J2b4FDANAAAWKEAA64QAgkiFBAYBUUHAMICAAAgFAAAAuQpAAABBJXahxGA AAAAAAQAFMWbkFDADAA4ISEAwmSRAA2HFBAA0OEEAEYR4lGdAAAAAAAAAEQA $LanguageId = 0409 $DatFile

'by John Findlay ' LoadADll // Load library Global I Global h As Handle = LoadLibrary("user32.dll") // Get the addresss of Function SetRect() Global lpSetRectFunc = GetProcAddress(h, "SetRect") Type RECT left As Int top As Int right As Int bottom As Int EndType Global rc As RECT ~StdCall(lpSetRectFunc)(*rc, 0, 0, 40, 132) Print rc.left, rc.top, rc.right, rc.bottom MemZero(*rc, SizeOf(RECT)) // Clear mem of RECT Type Print rc.left, rc.top, rc.right, rc.bottom ~SetRect(rc, 10, 10, 140, 32) Print rc.left, rc.top, rc.right, rc.bottom // Free the library ~FreeLibrary(h) KeyGet I CloseW 1 End

'##E# ' LoadNewMouseIcon 'First select a form or a control and set the 'MousePointer property to 99-Custom. 'Then you load an .ico file into the MouseIcon property ' using the LoadPicture function. LoadForm form1 With form1 AutoRedraw = 1 Print "Loading a different mouse icon (.Ico)" End With ' Set your icon path form1.MouseIcon = LoadPicture("c:\gb32\1.ico") Do : Sleep : Until Me Is Nothing Sub cmd1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 104 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAjBAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAQ4EBA4mUEAANIRAA49DBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' LoadPicture '##E# LoadForm frm1 Center ' Note: Change path as required Picture1.Picture = LoadPicture("C:\gb32\gb3splash.bmp") Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 148, 148 QCAUDtWMICAlAMIAUCQAyAxPxTj8WXOxWkPRfNOFTZ9r17wISYBJvg4T9EvNBdkMvayvb98TCRER EREBVwZEeJpgjZvVgRPCBUaSaeuEl0EbVzIigREPlI+IiJQEfEsUpJjsFrAWE6XEKXwDaG+OJkwm QEfERETcA31zFXFACfyWBXQZEnV8YPjwOZqKHREREzAAAA== $LanguageId = 0409 $DatFile

' LoadFileToTb ' Load Text file into TextBox and then Save it as anonother filename ' Set TextBox to MultiLine LoadForm frm1 'TextBox.Text = "First Line" 'global f$="c:\gb32 Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close Sub cmd2_Click 'load 'Change to path for your text file ~@LoadFileToTB(TextBox, "c:\gb32\wavefix2.txt", False) End Sub Sub cmd3_Click '##E# 'save ~@SaveFileFromTB(TextBox, "C:\gb32\wavefix2.txt", True) Function LoadFileToTB(TxtBox As Object, FilePath As _ String, Optional Append As Boolean = False) As Boolean 'PURPOSE: Loads file specified by FilePath into textcontrol '(e.g., Text Box, Rich Text Box) specified by TxtBox 'If Append = true, then loaded text is appended to existing ' contents else existing contents are overwritten 'Returns: True if Successful, false otherwise Dim iFile As Integer Dim s As String If Dir(FilePath) = "" Then Exit Function On Error GoTo ErrorHandler : s = TxtBox.Text iFile = FreeFile Open FilePath for Input As # iFile s = Input(LOF(# iFile), # iFile) If Append Then TxtBox.Text = TxtBox.Text & s Else TxtBox.Text = s End If LoadFileToTB = True ErrorHandler: If iFile > 0 Then Close # iFile End Function Function SaveFileFromTB(TxtBox As Object, _ FilePath As String, Optional Append As Boolean = False) _ As Boolean 'PURPOSE: Saves contents of text control (e.g., Text Box, 'Rich Text Box) specified by TxtBox to file specified by FilePath 'If Append = true, then TxtBox's contents are 'appended to existing file contents 'else existing file is overwritten 'Returns: True if Successful, false otherwise Dim iFile As Integer iFile = FreeFile If Append Then Open FilePath for Append As # iFile Else Open FilePath for Output As # iFile End If Print # iFile, TxtBox.Text SaveFileFromTB = True ErrorHandler: Close # iFile $DatFile $FormVersion = 2 :{frm1 224, 238 cDAUDtWMUDg7A8MA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcgFUVGe0J0b4BwCAAAtCBAASLEAgjYRAAfJFFCABGRMAUwE rAwARETA+/3FpAwBZAAAj1GZxAwAAAWvEBAw3UEAAtHRAAQYDBBABWEepRHFQGQABAhJAITE9cwB hNEAwETRAAsREBAAlGRJDw0bhR2FdIwBJMDADAAUNVEAABTRAA0gEBxjRUyATFmdlZBIAAA= $LanguageId = 0409 $DatFile

'LoadTextFile ' load entire .txt file into a string Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() Dim iFile As Integer Dim sFileContents As String iFile = FreeFile ' Change path to yourfile.txt Open "C:\gb32\wavfix.txt" for Input As # iFile sFileContents = Input(LOF(# iFile), # iFile) 'Load string with entire contents of file Close # iFile Print sFileContents End Sub

' LoadTxtComboBox LoadForm frm1 Global lne$ AutoRedraw = 1 Print "Open Combo box to see text" Open "c:\gb32\wavfix.txt" for Input As # 1 Do While Not EOF(# 1) Line Input # 1, lne$ '##E# If lne$ <> "" Combo1.AddItem lne$ EndIf Loop Close # 1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 144, 147 MCAUDtWMECwkA8HATCQAwAxPxTTE+jwEERT/WUDJzr1v7/XJol/AP1vBSERKTQBaSf/KGR8+Z8+Z EU3I8WKBDRZ1KssjwATr1ewwp1skNFjIEUi4RExHRMBh4j4cVB5WhTE2X86Xwh4GP2zKgqExDIiP iIiYkIpiqChQjbG0gsRwMjX/kCkLQTeRERExMAAA $LanguageId = 0409 $DatFile

' LockWindowUpdate '##E# '* LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() Dim i% ~LockWindowUpdate(List1.hWnd) For i% = 1 To 1000 List1.AddItem Str$(i%) DoEvents Next ~LockWindowUpdate(0) End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 175, 190 rCAUDtWMjCgvA4JA+CQA1AxPxTj4v1PCl3PRvFiETRClfavWTMRJhM3L9QuGlT4EzjDdyvyCEiI8 vI8vI0zIkSWBIP1uCD/IIwbVWJTsKrmqoXERwIinSEfExEIiPCciYdrASEAvIQchM4MQTKNCuMi4 Fi4jIiIGhDa3SmIrAQow2JoiKDiwdin8xJsXNmaWuRERExMWNyKAEhOtIglRcORofYC7UW0NiIiI mBAAAA== $LanguageId = 0409 $DatFile

' MailAPPs Installed LoadForm frm1 Do Sleep Until Me Is Nothing '##B# Sub Command1_Click() Local sKey As String*256 Local Int lRegKey, iKey Local Const ERROR_SUCCESS = 0 List1.Clear ~RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Clients\Mail", *lRegKey) While RegEnumKey(lRegKey, iKey, sKey, 255) = ERROR_SUCCESS '##E# List1.AddItem Char{V:sKey} iKey++ Wend ~RegCloseKey(lRegKey) End Sub $DatFile $FormVersion = 2 :{frm1 223, 251 bDAUDtWMTDw+A4MATDgBJBhxvF4cTEb8C8T80Eh/WHCxiFxIjERIhcUEyIPFxNx0VERkzhSllZ/W rZKCAAAAgccEChw0wzQSGxzQIeKNIiAl3tQjZIcYe9aNO3vW9TpSYSXyghQ43SI8HChSINlSeEX7 7bBJhA7vQg+X4X+Z4n2YLwaSZYpZcyZaZ5jx7bcW/WYQjvkLyPnhf+jhgpRAEINW735InLzxa+yq a1dP8SCKls88WQRzdwWz9S4+TbgUTYyy9duaPuXZM3v8O33j5sf9moWakVx1xzQ5QAAAAA== $LanguageId = 0409 $DatFile

MsgBox App.Path ' it tells you the dir of the program in a message box

'MBoxFileLen ' Shows len of file in bytes ~MsgBox(FileLen("C:\gb32\wavfix.txt"))

' MBoxSreenPixels LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click AutoRedraw = 1 'put the code under command button '##E# Print "Your screen is set at:" Print Screen.Height / 11.25 & " x " & Screen.Width / 20 $DatFile $FormVersion = 2 :{frm1 110 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAsiEBAAWUEAAFKRAAQ4DZBABeUZ0BCUphXZsNHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

'##E# ' MeBackColor LoadForm frm1 Me.BackColor = RGB(0, 255, 255) ' Change the back color of the form to cyan. With frm1 AutoRedraw = 1 Print "BG Color Change" End With Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAePRAA49EBAAWWEAAEWRwAQFmJXbxAwElCAAH20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAkzEBAAlUEAgjIRAAIrDBBABWEepRHAAAAAAAAABMA= $DatFile

'ModemProps 'Launch Windows Modem Properties Dialog ~Exec("control.exe", SysDir + "\modem.cpl")

' MouseButtons Const SM_CMOUSEBUTTONS = 43 'Example: To find out how many mouse buttons there are, use the following code: number& = GetSystemMetrics(SM_CMOUSEBUTTONS) Print number&; " Button Mouse" Delay 4 'It returns the number of buttons, or zero if there is no mouse. There are masses of information ' you can retrieve using the GetSystemMetrics function. There are lots of other constants you can use. ' They all return a long value, and they can all be used in the same way as the code above.

'MouseExist Public Const SM_CMOUSEBUTTONS = 43 Form_Load Function CheckMouse() As Boolean If GetSystemMetrics(SM_CMOUSEBUTTONS) > 0 Then CheckMouse = True Else CheckMouse = False End If End Function Sub Form_Load() MsgBox "The check of mouse existence returned: " & CheckMouse End Sub

' MouseProperties 'Launch Windows Mouse Properties Dialog ~Exec("control.exe", SysDir + "\main.cpl")

'MouseXY Type POINTAPI x As Long y As Long End Type Dim z As POINTAPI Mouse_XY Do : Sleep : Until Me Is Nothing Sub Mouse_XY() ~GetCursorPos(z) Print "Mouse X= "; z.x; " "; "Mouse Y= "; z.y End Sub

Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 '##E# List1.MultiSelect = 1 With List1 .AddItem "Connecticut" .AddItem "Delaware" .AddItem "Georgia" .AddItem "Maryland" .AddItem "Massachusetts" .AddItem "New Hampshire" .AddItem "New Jersey" .AddItem "New York" .AddItem "North Carolina" .AddItem "Pennsylvania" .AddItem "Rhode Island" .AddItem "South Carolina" .AddItem "Virginia" End With End Sub Sub cmdMovetoRight_Click() If List1.ListIndex = -1 Then Exit Sub List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub '##B# Sub cmdMoveToLeft_Click() If List2.ListIndex = -1 Then Exit Sub List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 253, 292 5DAUDtWMxDAJBwOAtDgBRBnK/EPNRMxH0kp818WFjV8r1zQEzISERIDFhIUZiE2TcUvFSMRFUMSK 9vw3gMaIAQkXAFRAABEIBAYAHHhQIkGMNUsBieI4uLN46kChYotHCHm/m+czgz03Il1zkxiDHhwt oQ4OECCClUpsIelzcMoJcjiaIAhag5VP8TO3C8SbBFtrkzgi0Vxi1gmA1ePcjhaIsnDBuPykU8Jn gdzvkGnfVvq3/cYIE2rBAYoHmYnDha2VgWSYT3SMIYJeggXxjnJtFJE36BgU6hfckD/KzLtoKdPb CKtYYIQnfOADv9wtncIouaKQrza9RYAAAA== $DatFile

Global g_szTitleName As String = "APIWindow for GB32. . ." + #0 OpenW 1 Global Hwnd As Handle = Win(1) ShellAbout(Hwnd) CloseW 1 Procedure ShellAbout(hWnd As Handle) '******************************************************************************** ' * ' FUNCTION : ShellAbout() * ' * ' PURPOSE : To display the Shell ABOUT dialogbox. * ' * ' RETURN : N/A * ' * ' PARAMS : hWnd -> handle of Window * ' * '******************************************************************************** Local s As String = "Written by Dale Bryant (2000)" + #13 #10 + "e-mail -> dbryant@mainnet.com" + #0 ~ShellAbout(hWnd, g_szTitleName, s, LoadPicture(":Gb32h")) EndProc

'MsSpellCheck Global sp$ = "Kuds like cundy and so du I" MsSpellCheck(sp$) Do : Sleep : Until Me Is Nothing Function MsSpellCheck(strText As String) As String Dim oWord As Object Dim strSelection As String Set oWord = CreateObject("Word.Basic") oWord.AppMinimize MsSpellCheck = strText oWord.FileNewDefault oWord.EditSelectAll oWord.EditCut oWord.Insert strText oWord.StartOfDocument On Error Resume Next oWord.ToolsSpelling On Error GoTo 0 oWord.EditSelectAll strSelection = oWord.Selection$ If Mid(strSelection, Len(strSelection), 1) = Chr(13) Then strSelection = Mid(strSelection, 1, Len(strSelection) - 1) End If If Len(strSelection) > 1 Then MsSpellCheck = strSelection End If oWord.FileCloseAll 2 oWord.AppClose Set oWord = Nothing Print sp$ Print "Corrected spelling" Print strSelection End Function

'MultimediaPropertiesDialog 'Launch Windows Multimedia Properties Dialog °Dim dblReturn As Double °dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0") ~Exec("control.exe", SysDir + "\mmsys.cpl")

' NetworkInstalled ChekNet() Sub ChekNet() Dim x As Long x = GetSystemMetrics(63) If (x And 2) = 2 Then MsgBox "Network is Installed" Else MsgBox "Network is not Installed" End If End End Sub

'NextAvailableDrive Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long Global a Print NextAvailableDrive(); " Is Next available" Delay 3 Function NextAvailableDrive() As String Dim iDrive As Integer Dim iFirst As Integer Dim iFirstFree As Integer, sFirstFree As String Dim sNextDrive As String iDrive = 67 'starts looking at D:\ Do iDrive = iDrive + 1 sNextDrive = Chr$(iDrive) + ":\" iFirstFree = GetDriveType(sNextDrive) 'Function returns 1 if drive is available Loop Until iFirstFree = 1 sFirstFree = Chr$(iDrive) + ":\" NextAvailableDrive = sFirstFree End Function

'NumToK Global OT, ENG, ENGPART Print NUM2ENG(210000) Delay 3 Function NUM2ENG(NUM As Single) As String OT = NUM If OT = 0 Then ENG = "" ElseIf OT >= 1 Then While OT >= 1000 OT = OT / 1000 DoEvents ENGPART = ENGPART + 1 Wend Select Case ENGPART Case 1 : ENG = "k" '1000 Case 2 : ENG = "M" Case 3 : ENG = "G" Case 4 : ENG = "T" Case Else ENG = NUM OT = "" End Select Else While OT < 1 OT = OT * 1000 DoEvents ENGPART = ENGPART + 1 Wend Select Case ENGPART Case 1 : ENG = "m" '0.001 Case 2 : ENG = "u" Case 3 : ENG = "n" Case 4 : ENG = "p" Case 4 : ENG = "f" Case 4 : ENG = "a" Case Else ENG = NUM OT = "" End Select End If NUM2ENG = OT & ENG End Function

' OpenWithDLg Dim x As Long ' Declare the Varible x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL C:\*.g32")

' PasswordDialog 'Launch Windows Password Properties Dialog ~Exec("control.exe", SysDir + "\password.cpl")

OpenW # 1 Local a% DefFill 5 PBox 10, 10, 100, 100 KeyGet a% CloseW # 1

' PlayStopMidi 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 Global midifile = "c:\midi\canyon.mid" ~@PlayMidiFile(midifile) ' remove REMS to stop REM~@StopMidi Function PlayMidiFile(MidiFile As String) As Boolean 'MidiFile = File's Full Path 'Returns: True if successful, false otherwise Dim lRet As Long On Error Resume Next If Dir(MidiFile) = "" Then Exit Function 'Stop any currently playing .mid lRet = mciSendString("stop midi", "", 0, 0) lRet = mciSendString("close midi", "", 0, 0) 'Play lRet = mciSendString("open sequencer!" & MidiFile & " alias midi", "", 0, 0) lRet = mciSendString("play midi", "", 0, 0) PlayMidiFile = (lRet = 0) End Function Function StopMidi() As Boolean 'Stops midi from playing 'Returns: True if successful, false otherwise Dim lRet As Long On Error Resume Next 'Stop any currently playing .midi lRet = mciSendString("stop midi", "", 0, 0) StopMidi = (lRet = 0) lRet = mciSendString("close midi", "", 0, 0) End Function

' PrinterFOnts LoadForm frm1 °AutoRedraw = 1 '##E# °Print "Printer Fonts" Dim i As Integer For i = 0 To Printer.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next Do : Sleep : Until Me Is Nothing $DatFile $FormVersion = 2 :{frm1 167, 175 jCAUDtWMbCwrAYJAvCQAyA4LwTj8W8n4xUG9T8E918WFTFU0yIlIF22TCRSMvJaM5n2hPH/DGREU RFBZwRQNjYTSBGzGpVIxNCDcel36aXeitqZERMR8OR8RECBi4j4kRCU2KYEPHt4xexDLjH7JF+TE PhI+IiICBK0WgiEtCl4hoFBTUBPcZE7BK81UtZSchW8aVXdxuYJ7qbHTEvTEfERERoAAAAA= $LanguageId = 0409 $DatFile

LoadForm frm1 ' TO print on the form With frm1 .AutoRedraw = 1 '##E# Print "Printing on a form" Print "Using With/AutoRedraw" End With Do : Sleep : Until Me Is Nothing Sub cmd2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAX00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZyAwAAAGzEBA4mUEAAJJRAA49DBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' RainbowText Global BF '##E# LoadForm frm1 Form_Paint() Do : Sleep : Until Me Is Nothing Sub Form_Paint() Dim I As Integer, X As Integer, Y As Integer Dim C As String Cls For I = 0 To 91 X = CurrentX Y = CurrentY C = Chr(I) 'Line -(X + TextWidth(C), Y = TextHeight(C)), _ QBColor(Rnd * 16), BF CurrentX = X CurrentY = Y ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Print "Hello World Hello World Hello World Hello Hello World Hello Gfa " Next End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAUCRAAQJEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAU3EBAUvUEAAmFRAAojDBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $FileFlags# = 2 $DatFile

'PURPOSE OF CODE: 'TO RANDOMLY SHUFFLE CONTENTS OF AN ARRAY 'Array Type and size does not matter 'same technique can be used for arrays of different sizes/types Dim iArray(200) As Integer 'array to be randomly shuffled 'for demo purposes only Dim iTempArray(200) As Integer 'copy of the array Dim iCtr As Integer Dim iCtr2 As Integer Dim iTemp As Integer Dim iMaxElement As Integer Dim iMinElement As Integer 'Populate array and Temp Copy for 'demo purposes For iCtr = 0 To 200 iArray(iCtr) = iCtr iTempArray(iCtr) = iCtr Next 'iTempArray is an array to hold 'original values. you must duplicate the orignal 'array for this technique to work 'this is the technique Dim bArray() As Boolean iMaxElement = UBound(iArray()) iMinElement = LBound(iArray()) ReDim bArray(iMinElement To iMaxElement) As Boolean For iCtr = iMinElement To iMaxElement Do Randomize Timer iTemp = Int((iMaxElement - iMinElement + 1) * Rnd) + _ iMinElement If bArray(iTemp) = False Then iArray(iTemp) = iTempArray(iCtr) bArray(iTemp) = True Exit Do End If Loop Next 'just a test to prove that it worked For iCtr = iMinElement To iMaxElement Print iArray(iCtr) Next Do : Sleep : Until MouseK = 2

OpenW 1 Local a, n, i Dim s(20) Do Read a Exit If a = "*" s(n) = a Inc n Loop Data John,Dale,Tom,Eberhard,Gerd,Wilhelm,Michael,* QSort s(), n For i = 0 To n Print s(i) Next i Print n; " Names" Delay 4

' ReadTextFile 'This code is really easy! quick and dirty :) Global vbCrlf = Chr$(13) & Chr$(10) '##E# LoadForm frm1 Global Textzeile Open "c:\gb32\wavfix.txt" for Input As # 1 ' first open file / zuerst wird das file geöffnet Do Until EOF(# 1) Line Input # 1, Textzeile Text1.Text = Text1.Text & vbCrlf & Textzeile 'the words are added into the text box Loop Close # 1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 149, 153 RCAUDtWMJCQmAQIAZCQA0AxPxTl/IEPr0EjuPNxbBFDVCJhoxcdepslkzEaxfavWPDfDy/uQERER EREYvIEPQhkqtcFU4GhAs0KFZC1KNtdVjIClIWGRsRETYEbE4M91rwJ2XLC0sCg9Fk5cYiOiIQEx GRAIiYYTNiICiyIrgQsvXAm0Fo45FBNNIRf+u6RERExMAAA= $LanguageId = 0409 $DatFile

' RegionalSettingsDialog 'Launch Windows Regional Settings Dialog Dim dblReturn As Double dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")

' RemoveCharacters Global a = "this is some test" Global x = "e" Print RemoveChars(a, x) Do : Sleep : Until MouseK = 2 Function RemoveChars(ByVal pMessage As String, _ pRemovable As String) As String Dim lMessage As String Dim lCurChar As String Dim X As Integer 'cycle through message string For X = 1 To Len(pMessage) 'get the current character lCurChar = Mid(pMessage, X, 1) 'if the current character is not in the removable list, 'add it to the local message If InStr(pRemovable, lCurChar) = 0 Then lMessage = _ lMessage & lCurChar Next X RemoveChars = lMessage End Function

' RemoveAllSpaces Global s$ = "This has all spaces removed" Print RemoveAllSpaces(s$) Delay 4 Function RemoveAllSpaces(ByVal InputString As String) _ As String Dim sAns As String Dim lLen As String Dim lCtr As Long, lCtr2 As Long Dim sChar As String lLen = Len(InputString) sAns = InputString lCtr2 = 1 For lCtr = 1 To Val(lLen) sChar = Mid(InputString, lCtr, 1) If sChar <> " " Then Mid(sAns, lCtr2, 1) = sChar lCtr2 = lCtr2 + 1 End If Next If lCtr2 > 1 Then sAns = Left(sAns, lCtr2 - 1) Else sAns = "" End If RemoveAllSpaces = sAns End Function

' RemoveDirectory '##E# LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Form_Load() Local retval retval = RemoveDirectory("C:\gb32\testdir") If retval = 1 Then MsgBox "C:\gb32\testdir was successfully deleted." Else MsgBox "Deletion failed." End If End End Sub Sub cmd1_Click Form_Load() $DatFile $FormVersion = 2 :{frm1 110 EAAAAePRAA49EBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAIrDBAMTUEAA9LRAAI6DZBABSUZsVGdlBCRpJHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' RenameFile '============================= 'You can give the path of the 'folder to rename a folder '============================= Dim FileName As String Dim NewFileName As String On Error Resume Next FileName = "C:\gb32\anicursor.txt" NewFileName = "C:\gb32\anicur.txt" Name FileName As NewFileName

'RichTextBoxFontChange LoadForm form1 Center '* both work 'rtf1.LoadFile filename$, 0 //'0=load as rtf-formatted text,1=load as no formatted text Do Sleep Until Me Is Nothing Sub cmd1_Click form1.Close EndSub Sub cmd2_Click @Reset RichTextBox1.Text = "Changing to Italic Font" RichTextBox1.FontItalic = True Sub cmd3_Click @Reset RichTextBox1.Text = "Changing to a Bold Font" RichTextBox1.FontBold = True Sub cmd4_Click @Reset RichTextBox1.Text = "Changing to a Strike Throught Font" RichTextBox1.FontStrikethru = True Sub cmd5_Click @Reset RichTextBox1.Text = "Changing to a Underline Font" RichTextBox1.FontUnderline = True Sub cmd6_Click @Reset RichTextBox1.Text = "Changing to Courier Font" RichTextBox1.FontName = "Courier" Sub cmd7_Click @Reset RichTextBox1.Text = "Changing to Garamond Font" RichTextBox1.FontName = "Garamond" Sub Reset RichTextBox1.FontUnderline = False RichTextBox1.FontBold = False RichTextBox1.FontStrikethru = False $DatFile $FormVersion = 2 :{Form1 377, 431 1FAUDtWMtFwrBgWAxFgBpBD9C80IvlPCRMTGB9E918WlxINtBFkIRIVEEFREREUFBFCVSLhURYy8 p9aRPDvjS6/+HjBEBQVIhFQABIAiBBKgQEBCEAhABigABhQIMVSeCB+GcHAD4q+CSIdzTYYjcIIQ /Z7kxLx256dm0EESPPhQ3QI0DhwQINlSa8npgGCrU3VPTVYwRIAnYI4MGEDwaIwtKL8PZNss5L5L EwRmyOz71m93m5mfCubqnpGCHU4xRYoEewXNgEYVD0JOG68jeC/Vq59LtpSkWmCrGh52mhhhBFKT bGDlQAZxAGYXDiB0Yojr4V43+ODF6cguLXpHlhSoDtxAwYXD0df5KdMF+VPTzLnPRHBnTuG8Uv0v 0BxYIQeCGLn73ZWrfmOSDSDlgPsUv0nQQg7YojpokwPQe5seji87nqyi1QJAPub2SAoDqxQARxtw fcm5de9+rdsoNUCQCbb45QMUGt4OJwR4XOjbG8mf/QVAAAA= $LanguageId = 0409 $DatFile

'RoundedCorners 'This code will create a form that appears to have rounded corners. Depending on the value you ' choose you can make the entire form round if you choose. '##E# LoadForm form1 Center MakeRound(form1, 50) Do : Sleep : Until Me Is Nothing Sub MakeRound(pForm As Form, lValue As Long) Dim lRet As Long Dim l As Long Dim llWidth As Long Dim llHeight As Long 'Get Form size in pixels llWidth = pForm.Width / Screen.TwipsPerPixelX llHeight = pForm.Height / Screen.TwipsPerPixelY 'Create Form with Rounded Corners lRet = CreateRoundRectRgn(0, 0, llWidth, llHeight, _ lValue, lValue) l = SetWindowRgn(pForm.hWnd, lRet, True) With form1 AutoRedraw = True Print "A Form with rounded corners." Print "Click Exit" End With End Sub Sub cmd1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 104 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwEDDAAH00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAwwEBAwoUEAAJJRAAY2DBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

Global retv, GD$ LoadForm frm1 Global Runcount = 0 Global GB$ = "" ~@register(frm1) Function register(FRM As Form) 'Put this code under the load section of a FORM retv = GetSetting("A", "0", "Runcount") ' set GD$ to 0 and run 1 time to reset and REM out GD$=Val GD$ = "0" GD$ = Val(retv) + 1 //SaveSetting "A", "0", "1", GD$ SaveSetting "A", "0", "RunCount", GD$ If Val(GD$) > 3 Then MsgBox "HeY!!!, Well it's time for you to register this program for now BYE!!!" + GD$ FRM.Close End If End Function $DatFile $FormVersion = 2 :{frm1 66 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAA $LanguageId = 0409 $DatFile

'ScreenRes Dim X As Integer Dim Y As Integer With Screen 'Horizontal Resolution X = (.Width / .TwipsPerPixelX) 'Vertical Resolution Y = (.Height / .TwipsPerPixelY) 'returns X x Y resolution End With Print "The Screen Resolution is "; Print X, "X"; Y Delay 4

' SetKeyBoardState ' Turn CAPS on/off Dim KeyState|(256) KeyState|(VK_CAPITAL) = 0 ~SetKeyboardState(V:KeyState|(0)) Delay 2 KeyState|(VK_CAPITAL) = 1 ~SetKeyboardState(V:KeyState|(0))

'##E# 'SetWindowText LoadForm frm1 Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() Dim rval As Long rval = SetWindowText(Me.hWnd, "Gfa Is Hard To Beat") End Sub $DatFile $FormVersion = 2 :{frm1 66 EAAAAeHRAA4dEBAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAA $DatFile

' ShadeForm Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type ' Shade a form ' ' Optional Arguments: ' StartColor is what color to start with. ' (Default = vbBlue) ' Fstep is the number of steps to use to fill the form. ' (Default = 64) ' Cstep is the color step (change in color per step). ' (Default = 4) ' ' Note: the effect can be reversed by calling ShadeForm with ' a StartColor near black (but not completely 0) and by ' setting a negative color step. ' $Library "c:\gb32\vbconstants.lg32" LoadForm frm1 cmd1.Caption = "Wait" ShadeForm(frm1, 200, 50, -50) '##B# Delay 4 cmd1.Caption = "Exit" Do Sleep Until Me Is Nothing Sub ShadeForm(f As Form, Optional StartColor As Variant, Optional Fstep As Variant, Optional Cstep As Variant) Dim FillStep As Single ' Not an integer because sometimes ' rounding leaves a large bottom region Dim c As Long Dim FillArea As RECT Dim i As Integer Dim oldm As Integer Dim hBrush As Long Dim c2(1 To 3) As Long Dim cs2(1 To 3) As Long Dim fs As Long Dim cs As Integer ' Set defaults fs = Iif(IsMissing(Fstep), 64, CLong(Fstep)) cs = Iif(IsMissing(Cstep), 4, CInt(Cstep)) c = Iif(IsMissing(StartColor), vbBlue, CLong(StartColor)) oldm = f.ScaleMode f.ScaleMode = 3 //vbPixels FillStep = f.ScaleHeight / fs FillArea.Left = 0 FillArea.Right = f.ScaleWidth FillArea.Top = 0 ' Break down the color and set individual ' color steps c2(1) = c And 255# cs2(1) = Iif(c2(1) > 0, cs, 0) c2(2) = (c \ 256#) And 255# cs2(2) = Iif(c2(2) > 0, cs, 0) c2(3) = (c \ 65536#) And 255# cs2(3) = Iif(c2(3) > 0, cs, 0) For i = 1 To fs FillArea.Bottom = FillStep * i hBrush = CreateSolidBrush(RGB(c2(1), c2(2), c2(3))) ~FillRect(f.hDC, FillArea, hBrush) ~DeleteObject(hBrush) ' Could do this in a loop, but it's simple ' and may be faster. c2(1) = (c2(1) - cs2(1)) And 255# c2(2) = (c2(2) - cs2(2)) And 255# c2(3) = (c2(3) - cs2(3)) And 255# FillArea.Top = FillArea.Bottom Next i f.ScaleMode = oldm End Sub Sub dummy End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAEsEBAMiUEAAUKRAAY2DBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

'ShellExecute Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5 OpenW 1 Local hwnd = Win(1) Local vbnullstring = #0 ShellExecute(hwnd, "open", "http://www.gfawhelp.gfa.net", vbnullstring, vbnullstring, SW_SHOW)

' ShowAllDllFiles LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() Local i As Integer Dim FileFinder '##E# FileFinder = Dir("c:\windows\system\*.dll") 'Where to look for. Do Until FileFinder = "" i++ 'Print i List1.AddItem FileFinder FileFinder = Dir Loop Print i; " Files" End Sub 'Just Add ListBox as List1 and Command Button as Command1 Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 179, 197 vCAUDtWMnCQxAIKAFDQA3AxTj8Wg0jQNrs/EfNvRRgxERPxMjEvoRJyVkEV8V/GzbbatPDz/AQIi IiIiICwXE5RKcMlbrQBdEEQqJplq2SaiyrZERYExTJiPiYCExHBx1W3KgEB4KiqC2iXAnxpEYNi4 Fi4jIiIGhyt7U1zKAEBrK4C6CaMxFB9yJ8BKqLxbhKaHREREzUudnqeoCAB+8Cycu4hhLC0Fmw/o u6RERExMAAA= $DatFile

' ShowRunDialog Global x x = ShowRunDialog() Delay 4 Do : Sleep : Until Me Is Nothing Function ShowRunDialog() As Boolean '***************************************** 'Purpose: Shows Run Dialog (the one that 'displays when you select Run from the 'Start Menu 'Returns: True if successful, false otherwise 'Requires: IE 4.0 or above (will return false 'if user does not have IE 4.0 or above) '***************************************** Dim oShellApp As Object On Error Resume Next Set oShellApp = CreateObject("Shell.Application") oShellApp.FileRun ShowRunDialog = Err.Number = 0 End Function

' ShowTypeOfFileChosen 'Place the following code in a command button's click event LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmdGetFilename_Click() Dim sFilename As String Dim sPath As String '##E# 'search for files with vbp extension sPath = "c:\gb32\*.lg32" 'use Dir$ to get first matching filename sFilename = Dir$(sPath) 'retrieve remaining files matching the search pattern 'Dir$ returns zero length string when no match Do While sFilename > "" Listbox1.AddItem sFilename 'call Dir$ without parameters to get next filename sFilename = Dir$ Loop End Sub $DatFile $FormVersion = 2 :{frm1 158, 159 aCAUDtWMSCwnA0IAfCQA1AxTU8WR0jAFz+T80814ySRMfavDDZSUhWh+kFV8GIiYTmC955vjCIEx bXxbXRofR4doCKIVbpwBdEC404o5Z6yRLVXkREhSEPjI+IiJIEfE0WXZgQpKFIiAsVEgsC2/FBmz J4qExbExHRERMGiNRYpMrlZa61ZAI8JXhPpL4BviQ3CSgVsJKFREREzAAAA= $DatFile

' SoundsPropertiesDialog 'Launch Windows Sounds Properties Dialog ~Exec("control.exe", SysDir + "\mmsys.cpl @1")

'SystemVersion ' shows gb32 version Print SystemVersion Delay 4 Function SystemVersion() As String SystemVersion = "V." & App.Major & "." & App.Minor & "." & App.Revision End Function

'TextFileInTextBoxFromDisk Dim FileLength Global var1 LoadForm frm1 '##E# Open "c:\gb32\wavfix.txt" for Input As # 1 FileLength = LOF(# 1) var1 = Input(FileLength, # 1) Text1.Text = var1 Close # 1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 166, 171 iCAUDtWMaCwqAUJArCQA0AxLwTj4PCvWEPyPxTU+WQxkRQpEiEDdvwExfRvNRG/94n2+bJ58Og/7 CRE/FxfRwMjwLJFOmu8kClPCBttWPgy1K6qaGREQioxERHRMBjojAmoutUQJCUXEcuIQmBLoWgC/ IiAREtC4IE02a9AKXrorqZEBgIihNxIiIoxDnUQIIT1KMcygLWroRfGhfqraHREREzAAAA== $LanguageId = 0409 $DatFile

LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub cmd1_Click() ' Add It To a ButtoN ! ForeColor = 0 Print "YOUR TEXT HERE" ForeColor = &HFFFF 'Change Color Here Print "YOUR TEXT HERE" End Sub Sub cmd2_Click frm1.Close

' TimeLabel LoadForm frm1 Timer1() Do : Sleep : Until Me Is Nothing Sub Timer1() '##E# lbltime.Caption = Time End Sub Sub cmd1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 239, 264 rDAUDtWMjDACB4NAjDgBPBhQ6TT8nICLR/T8U5OOxxhJxMXIhECVmQIZqIlMkERcRMlUfa/W4MS9 O8PsAIREAMSCIAyxRIECx0SqJi2XIc+5LoyefeLMBjQ4ACjXjn+pcNKvvaPKrZwQIsLJE2DhQJ0i tmj75+WwaIwqGUyPHC0rx0itmrBjhQ4V9796s8giAT35wu3cQa8LEqVPh/X1vbaAwwEKaOAxs7tQ KwmXO4b7LgBi5o4WxU4/jz69zV0QTwl0OB99z5QoUec2SKCBh5QgR9RYrsTuqL8rdh0wFCoYx8xE 1QophbbJVEMAAAA= $LanguageId = 0409 $DatFile

'TimeToMillisecond Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Declare Sub GetSystemTime Lib "kernel32" _ (lpSystemTime As SYSTEMTIME) Print TimeToMillisecond() Delay 4 Function TimeToMillisecond() As String Dim sAns As String Dim typTime As SYSTEMTIME On Error Resume Next GetSystemTime(typTime) sAns = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & _ ":" & typTime.wMilliseconds TimeToMillisecond = sAns End Function

'ToggleButton Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Const BM_SETSTATE = &HF3 Private mb_ButtonDown As Boolean LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() mb_ButtonDown = Not mb_ButtonDown Call SendMessage(Command1.hWnd, BM_SETSTATE, CInt(mb_ButtonDown), 0) End Sub $DatFile $FormVersion = 2 :{frm1 110 EAAAAUKRAAQpEBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAAgOOEAQyRRAAwfEBAg3PkEAEIVvd2ZsVGAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' Find your total memory Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) //Then you put this code in a sub (ie on the click of a button): Dim MyMem As MEMORYSTATUS MyMem.dwLength = Len(MyMem) GlobalMemoryStatus(MyMem) MsgBox "Total Memory " & MyMem.dwTotalPhys / 1024 & " KB " & "AvailMemory " & MyMem.dwAvailPhys / 1024 & " KB "

' UrlDownloadFile °So you want to grab an Internet file, but think the Inet control is buggier than an ant's nest? ° °Need to start an online download but want to skip those annoying user dialog boxes? ° °This slice of code uses a sneaky API call to solve all your worries. ° °Just call the DownloadFile function, passing it your URL and local filename. The function ' will then use the API to download the file and return a True if successful. ° °Usage ' Note: File to download / folder to put file in MsgBox DownloadFile("http://www.gfawhelp.gfa.net/elements.zip", "c:\zips\temp\elements.zip") 'Code Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Function DownloadFile(URL As String, _ LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function

' ValidateEmailAddress Print ValidateEMail("dbryant@mainnet.com") Delay 3 Function ValidateEMail(ByVal strAddress As String) As Boolean ' Purpose: Validate a given e-mail address. ' In: strAddress - string to be validated ' Out: ' Returns: True if strAddress is a valid e-mail address; False otherwise. Dim lngIndex As Long ' Position in strAddress Dim lngCountAt As Long ' Number of "@" Dim lngLastDotPos As Long ' Position of the previous dot in the string Dim strCurrentChar As String ' Buffer that holds the contents of the string one char at a time. On Error GoTo Fail_Validation ValidateEMail = True ' Prove me wrong! strAddress = Trim(strAddress) lngLastDotPos = 0 lngCountAt = 0 ' If the address isn't at least this (a@b.com) long, ' it's not a valid address. If Len(strAddress) < 7 Then GoTo Fail_Validation ' Check for certain generably allowable characters in the leading position. ' If found, it's not a valid address. strCurrentChar = Left$(strAddress, 1) If strCurrentChar = "." Or strCurrentChar = "@" Or strCurrentChar = "_" Or _ strCurrentChar = "-" Then GoTo Fail_Validation ' Check the string for non-allowable characters. For lngIndex = 1 To Len(strAddress) strCurrentChar = Mid$(strAddress, lngIndex, 1) ' Count the number of "@". If strCurrentChar = "@" Then lngCountAt = lngCountAt + 1 ' If there are two consecutive dots, it's not a valid address. If strCurrentChar = "." Then If lngIndex = lngLastDotPos + 1 Then GoTo Fail_Validation Else lngLastDotPos = lngIndex End If End If Select Case Asc(strCurrentChar) ' These characters are not allowable in e-mail addresses. Case 1 To 44, 47, 58 To 63, 91 To 94, 96, 123 To 127, 128 To 255 GoTo Fail_Validation End Select Next lngIndex ' If there isn't one, and only one "@", then it's not a valid address. If lngCountAt <> 1 Then GoTo Fail_Validation ' If the extension isn't a known one, it's not a valid address. Select Case Right$(strAddress, 4) Case ".com", ".org", ".net", ".edu", ".mil", ".gov" ' Yes, it's valid. Case Else GoTo Fail_Validation End Select ValidateEMail_Exit: Exit Function Fail_Validation: ValidateEMail = False GoTo ValidateEMail_Exit End Function

' WindowsInformation $Library "c:\gb32\vbconstants.lg32" Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type 'The following three Declare lines must be each entered on a single 'line. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _ (LpVersionInformation As OSVERSIONINFO) As Long Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _ MEMORYSTATUS) Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _ SYSTEM_INFO) Public Const PROCESSOR_INTEL_386 = 386 Public Const PROCESSOR_INTEL_486 = 486 Public Const PROCESSOR_INTEL_PENTIUM = 586 Public Const PROCESSOR_MIPS_R4000 = 4000 Public Const PROCESSOR_ALPHA_21064 = 21064 SystemInformation Sub SystemInformation() Dim msg As String ' Status information. Dim NewLine As String ' New-line. Dim ret As Integer ' OS Information Dim ver_major As Integer ' OS Version Dim ver_minor As Integer ' Minor Os Version Dim Build As Long ' OS Build NewLine = Chr(13) + Chr(10) ' New-line. ' Get operating system and version. Dim verinfo As OSVERSIONINFO verinfo.dwOSVersionInfoSize = Len(verinfo) ret = GetVersionEx(verinfo) If ret = 0 Then MsgBox "Error Getting Version Information" End End If Select Case verinfo.dwPlatformId Case 0 msg = msg + "Windows 32s " Case 1 msg = msg + "Windows 95 " Case 2 msg = msg + "Windows NT " End Select ver_major = verinfo.dwMajorVersion ver_minor = verinfo.dwMinorVersion Build = verinfo.dwBuildNumber msg = msg & ver_major & "." & ver_minor msg = msg & " (Build " & Build & ")" & NewLine & NewLine ' Get CPU type and operating mode. Dim sysinfo As SYSTEM_INFO GetSystemInfo(sysinfo) msg = msg + "CPU: " Select Case sysinfo.dwProcessorType Case PROCESSOR_INTEL_386 msg = msg + "Intel 386" + NewLine Case PROCESSOR_INTEL_486 msg = msg + "Intel 486" + NewLine Case PROCESSOR_INTEL_PENTIUM msg = msg + "Intel Pentium" + NewLine Case PROCESSOR_MIPS_R4000 msg = msg + "MIPS R4000" + NewLine Case PROCESSOR_ALPHA_21064 msg = msg + "DEC Alpha 21064" + NewLine Case Else msg = msg + "(unknown)" + NewLine End Select msg = msg + NewLine ' Get free memory. Dim memsts As MEMORYSTATUS Dim memory As Long GlobalMemoryStatus(memsts) memory = memsts.dwTotalPhys msg = msg + "Total Physical Memory: " msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine memory = memsts.dwAvailPhys msg = msg + "Available Physical Memory: " msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine memory = memsts.dwTotalVirtual msg = msg + "Total Virtual Memory: " msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine memory = memsts.dwAvailVirtual msg = msg + "Available Virtual Memory: " msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine MsgBox msg, vbOKOnly, "System Info" End Sub

' WindowsNetworkDialog 'Launch Windows Network Dialog °Dim dblReturn As Double °dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl") ~Exec("control.exe", SysDir + "\netcpl.cpl")

' WithCommand Type TBtnSettings '##E# BgColor As Long FSize As Integer Top As Integer Left As Integer Width As Integer Height As Integer End Type Private mOrigSettings As TBtnSettings $Library "vbconstants" LoadForm frm1 Center Do : Sleep : Until Me Is Nothing Sub Command1_Click() With Command1 frm1.BackColor = vbGreen frm1.Top = mOrigSettings.Top - 100 frm1 .Left = mOrigSettings.Left - 100 frm1 .FontSize = mOrigSettings.FSize + 4 End With End Sub Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 151 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE20UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAD9WbtFmbkFDADAA0UVEAA8PRAAsiEBAASPUEAE4Qsl2YrBAAAAAAAAQABM0bt1WY uRmMAMAAA6IRAAbKFBAQsTEAAA/QQAQgFhXa0BAAAAAAAAQABA== $DatFile

'##E# 'TextBoxScroll Global n Global s$ = "Watch The Text Scroll" Global gbCrLf = Chr$(13) + Chr$(10) LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click For n = 1 To 50 Text1.Text = Text1.Text & s$ Text1.Text = Text1.Text + gbCrLf Pause 1 Next n Text1.Text = Text1.Text + "Last Entry" Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 $DatFile $FormVersion = 2 :{frm1 221, 221 ZDAUDtWMRDQ3AwMAMDgBKBhpvA/EPNi4S8E914icR5xr1zwExECVRERE7EBFhPfRzKiEVQBVCS48 L9sR27I6AIAABACCKMECh9cTQSZIQsHCbdpBRufXrhn9QgFAuiXb6JEvGft7OECBHhwsmQYOEClQ qlSe8OShRNYJMzOHCIIHI/2D/UnsFo1cGU8IMM0cW4Tq1S2CZ/rrb6VXDCCzczByu6hAzpQw00R4 +b9Q2iuUMUKnmPrBJhffThAdtBp1eIQKbMcLejxn8oX5jxGnUJe996/8UFvhFrhBAAA= $DatFile

' BoldCmdFont LoadForm frm1 Dim tmp As Font Set tmp = Command1. Font tmp. Bold = 1 Set tmp = Command2.Font '##E# tmp. Bold = 1 Set tmp = Nothing Do : Sleep : Until Me Is Nothing Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 150, 155 SCAUDtWMKCwmAUIANCgA2AhQvAPRxbBRYMR8T818WhRMeURSXGXJuE3Ef9lMScB1favWvD/DCCRE hTpUHE0dEfDKsQar6FMYHhAOxU8dxmim2MR6Q5MMiQHRE6RETcO3lwkVVfXieRFh2GJgOgb0BKer V4j7hamskpSUC4MjEnTiUUBdYdoQojk8G60WlwvBzkrGGAAA $LanguageId = 0409 $DatFile

LoadForm frm1 Global Const SB_SETICON = WM_USER + 15 Local p As Picture '##E# Set p = LoadPicture(":little") sb1.SimpleText = "Simple Status bar" ~SendMessage(sb1.hWnd, SB_SETICON, -1, p.Handle) Do Sleep Until Me Is Nothing $DatFile $FormVersion = 2 :NORMAL 417, 766 dGAUDtWMVGg/CAZANHgBVBhl3j4v7/vERMDJykPC/CPD/DoNhEBJxEhISIjECR4ExbFOXIFS097F Pnti/fyII4joAACBEoACGCUCCUCh0fqEK601ChA3hwZIoME0FCF1hv1wiGXh3mMNJPHnHlwbDAfC CvjLNBtr2SSwb4++OEC9Qo/JI0HXaCaXtlPJRzPDT99ogjhqe9xnlhg+toxhj3K5to5SrVe7Rvln paYrTKqIkKpaN8PRKKNkG8Xrh9JS1zrURv9t++UNqIE2aQZYv+GlXSD9/aYKnzn2KThml2RgnIHj OGy554UYYOcJ6qkp89ccNnzegQhDHN6KX8iaPE5skzjPl58H7vzkiatWtnvu22DX55p6n0WLM/tV mnGRQrFs/5e0RJnaAZEGjY4URjlHpBajEPV4BMase6cEJxYRFKC126phRdrY5Ie8EPCJDBqM6971 e/N17vHCHLhQ6/hRPs2Dp+7R/Ok2HCF6qI0kU6U9sYS8C/Qo83MpiaLGC+k3WKGuNx77oZKtsuHC m/DBG01AiQZEHlbzmYW6dAAA :LITTLE 229, 318 hDAUDtWMZDgPBQNA+EQAnAxPzjA+7W//DF4L4P4f4RI9LM1/ASHdKxL9499H/flARMxEOOORERIN RwIiQKiwJiASExEAiIiojIiIiIiIiIiIiIiIiLiLi4u4iIu4i7io7Ou7iI+I+Ii/jPi4jP+Pi//I uIiICjMiIiI18iIig05DLiIU0MStIiIU9zyKiIE2ddjQQuCO2RU7u1FcqMJUngl5KbaFh5u2lbEm 7aJjJClVWsiICFRMREREVERg6pAQ9jQ4jI+IOQRoLEBuJC/4e95+e+4E+oN+rN+jFiL89ug2fHAA AA== :{frm1 96 EAAAAAAAAAAAAAA4CWEAAQTRwAQDmJXbxAwEcCAAE00UgMVYuNHITVmcpZGAAAAAIAAAASBAAAIA AAQAAcAAACAAzJWMAUBAAAAAAAgCFBAw8VEAAo4QJAQEAAAAAAAA $LanguageId = 0409 $DatFile

' ComboCopy LoadForm frm1 '##E# Text1.Text = "Copy To ComboBox" Do : Sleep : Until Me Is Nothing Sub Command1_Click() ' This adds whatever you have in the textbox to the combobox Combo1.AddItem Text1.Text //Combo1.Text = "" End Sub °The code above will add the text typed in TextBox1 into the ComboBox, and the "Combo1.text = """ is basically used to make the ComboBox not highlighting any items. Under CommandButton2's click event, type: Sub Command2_MouseDown(Button&, Shift&, X!, Y!) Command2.Caption = "Disabled" Combo1.Enabled = False ' Makes the Combo Disabled End Sub ° '##B# °The code above disables ComboBox, this could be done using the "Enabled" property. As for CommandButton3, it will be used for clearing all the items inthe ComboBox, simply type this code into CommandButton3's click event: Sub Command3_Click() Combo1.Clear ' This Clears the Combo of any Items End Sub °For CommandButton4, we will use it to remove the first item on the list, that is, if there are items, simply place this piece of code into CommandButton4's click event: Sub Command4_Click() ' This will Remove the Item an Item in the Combo Box ' Where is says "0" is the Index, Adjust that to Remove a differen't Item If Combo1.ListCount > 0 Then Combo1.RemoveItem 0 End If End Sub Sub Command5_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 305, 377 tEAUDtWMlEQeBASApEgBiBhQa80EEPikY+U5OhyjQITITMlIiERQRETEhEhERsybiIzIiEhIM/9H A48fFbCdgAoiAiAQgEiAgEAiBA8wQIECx0RqpCOjhw6o5wDFezfhFEFCkhw515KLiXnv84QJ6r5w RIsrJE2DhQJ0it2T+emw9XwSIgscIQzf4iePsjn8S4PqNYYRaUc75AEvcZ+FkECi6hdt9AggVPsj guswfU3kvQbIEAGWChXGfhKOammXZx4LkChcOgr2YAUb9QAM5jwf+mGS84tUKeU2KqDpgeo0rbF9 162BaalOHirEI9Odpwg7QKwHVLSLBjVrNBxwfm07KvJbKaF5hUgtrxFUEIVd2EUD/Y4d+m6EAaB7 RY0SYqHYbdMsDkHIlG5yhpIhAAA= $DatFile

' AboutIcon 'Description: Calls the "Win95 AboutBox" without need for additional form. Global x Declare Function ShellAbout Lib "shell32.dll" _ Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _ ByVal szOtherStuff As String, ByVal hIcon As Long) As Long LoadForm form1 Hidden x = ShellAbout(form1.hWnd, "GB32 Basic 2.0", _ "Gfa programming Help 2.0", form1.Icon)

' ChangeWallpaper Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" _ (ByVal uAction As Long, _ ByVal uParam As Long, _ ByVal lpvParam As String, _ ByVal fuWinIni As Long) As Long ChangeWallpaper "c:\windows\Clouds.bmp", False Sub ChangeWallpaper(BMPfilename As String, _ UpdateRegistry As Boolean) If UpdateRegistry Then SystemParametersInfo(20, 0, BMPfilename, 1) Else SystemParametersInfo(20, 0, BMPfilename, 0) End If End Sub ° °You can pass the name of the BMP file you want to be your wallpaper in the °1st parameter and whether you want to update the registry with this new °wallpaper file in the 2nd parameter (True or False). For example, ' false=until reboot : True= Permanent

LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click frm1.Close Sub Command2_Click Dim myWord As Object Dim myDocument Set myWord = CreateObject("Word.Application") myWord.Visible = True '##E# myDocument = myWord.Documents.Open ("c:\gb32\decktest.doc") $DatFile $FormVersion = 2 :{frm1 196, 217 ADAUDtWM4CQ2AMLAZDQA2AxLwTj8W4PC/EPBEGG1RMUQPGvWSETEkEjEbklIPZvJGdBtfavyfL/v IiI8vI8vIQnRsJvAlptrQQyPCESWl1KjtsEtVNjICIR8ci4jImgR8Rctr7K7JEECD6KBPaZE+KR4 fgC9EsK3IiIiYGnlpIVhgSEEVig1FxlRA/wF6O96VlklWb7VaqchWIVpKGQi45ExHREREYActr7K 7BMIEB8LMglhBZl4ZfgCdt22LiIiImBAAA== $LanguageId = 0409 $DatFile

'##E# 'LabelFontCount Global i LoadForm frm1 label1.Caption = Printer.FontCount & " Fonts" For i = 0 To Printer.FontCount - 1 List1.AddItem Printer.Fonts(i) Next i Do : Sleep : Until Me Is Nothing $DatFile $FormVersion = 2 :{frm1 155, 157 XCAUDtWMPCQnAoIAdCQA0A4LwPxTU8G/IEkSyPwXjHTMnEPDTMyEX9zlhkh8WH2oS8ppV9N8/QIC ukzoQnRgdjwbtCJVbeX4AOCq00KNPg6lmptraERMR8KR8RECBi4jo9EN7LYEPyMCZURhZjQmFngZ L2XMR8KR8REREBkAmrOxLoE+gygEgMswthP70JgOR8GR8RERECGAAAA= $LanguageId = 0409 $DatFile

'Trim Local s$ = " spaces on both ends " Print s$ ' or Trim$ s$ = Trim(s$) Print s$ Print "Spaces are gone" Delay 4

'ZTrim$ Local s$ = "has chr$(0) 0n end" + Chr$(0) Print s$ ' or Trim$ s$ = ZTrim(s$) Print s$ Print "It is Now gone" Delay 4

LoadForm form1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() Dim strValue As String Open "c:\cetus\love.txt" for Input As # 1 Do While Not EOF(# 1) Input # 1, strValue AutoRedraw = 1 Print strValue Loop Close # 1 End Sub Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{Form1 157, 163 ZCAUDtWMRCwoAwIAjCQAxAxTTEvFINB/CQ9XzbkgxEd8McxRSM0Pg8kdvVWQEFfavWT7vDgRERER EREMzI2EUAR09tCGQjwglmj2aK7oBztFjICCRYjIC7IiJAE2RUq/vmeWhQEUuQRKDwYvI4WcC9rl 5hbR6ctMNHUNOYRERExMl6/rpHpQI8xkhiUG+UvI4WKheSsBGREREzAAAA== $DatFile

'TextBoxLineCount Global n, i Global s$ = "Watch The Text Scroll" Global gbCrLf = Chr$(13) + Chr$(10) LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click For n = 1 To 50 Text1.Text = Text1.Text & s$ Text1.Text = Text1.Text + gbCrLf Pause 1 Label2.Text = n Next n Dec n Text1.Text = Text1.Text + "Last Entry" Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 DoEvents Label1.Caption = "Lines " & Text1.LineCount - 1 Label2.Caption = Text1.LineCount - 1 Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 285, 319 ZEAUDtWMREwPBwQAREgBXBBJ6PxT1bhEtIT+0EfNvVYEPCBRhgSIioSEUEiwRo4kTISMkEBdfmlU /S8MkJgHGBNgmIAIEgQwgEQAAlEECBmfxjmuQAJ5QonFGsInxbNIhZI0ww52Zfmy25KD9yDhQwQI sDgQYPEClQL2aTeXJxpGcE2hwYIQ+L4EF5AX2jiC4I6LkkILME9VgDrYsZK8d/+2ndXDHhd6fB+e yhA1xQQz4U4X7d3dEEPuWU22Ka7wY1fNoIw11YIgGpBh1cIw6zW4Xcnja7betvuFrty2paG3+9fR b4hVY4xZLZMoIEIYNEoa9hTLZeJLK8rV/8KlLVphSYfiXrYMcEACCyPELgBLPETLh/MJ9XQJAAAA $LanguageId = 0409 $DatFile

'LbFindstring ' Type a last name in the right Text box and '##E# ' if the name is in the List Box It will Hilite Global r Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() ' LoadForm frm1 Center ' load some items in the list box With List1 .AddItem "Hurst, Joachim" .AddItem "Brown, Bev" .AddItem "Viechtbauer, Georg" .AddItem "Bryant, Dale" .AddItem "Hamstra, Sjouke" .AddItem "Feaver, Mark" .AddItem "Schmacher, James" .AddItem "Hayward, Russel" .AddItem "Funck, Eberhard" .AddItem "Findlay, John" .AddItem "Record, Tom (Tiger)" .AddItem "Kunter, Markus" .AddItem "Deck, Brent" .AddItem "Paterson, Dave" ' highlite item #4 List1.ListIndex = 4 frm1.Caption = List1.ListCount & " Items in ListBox" End With Label1.Caption = "Type a last name from Left List In Right List-Name Should Hilite " End Sub Sub cmd1_Click frm1.Close End Sub Sub Text1_Change List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, Text1.Text) $DatFile $FormVersion = 2 :{frm1 241, 254 tDAUDtWMlDg/AAOA//PAFQAAAAkzEFxAH4CAAYZRAAQYFBDAVYmctFDATUKAAQQTTByUh52cgMVZ ylmZAAAAAgAAAA4DAAAgAAAABAwBRcwBUwUazRXMA0AAAYpQAAojDBAoXTEAgFQRdAwgRsCBFAAA AuQEJRQQylWYsFRQQkzBYUwYtRWMAMAAgjIRAAbKFBAYfUEAAQ7QQAQgFhXa0NhIHgAABEAVlhHd xAwCAAlAFJBWHQAQ7TEAg0PRaAQgR8REZRxJCAg//JRBHIAThJWZsFDAJIhiRAxBGAojFBAA/NUG AEIbiBRGXUbATkMAAA== $LanguageId = 0409 $DatFile

' CALL HELP FILE 'path to your .hlp file Global hlp$ = "c:\gfw\browser.hlp" Global a& @CallHelp Do Sleep Until Me Is Nothing Proc CallHelp a& = WinHelp(0, hlp$, 3, "") EndProc

'##E# ' ' GFA-BASIC 32 - Create a dummy ListBox to display MonthView ' Free 05/2000 bmcs@ozemail.com.au (Dave Barton) ' ' Generates a DropDown ListBox with MonthView effect ' very much like the appointment dates in MS Outlook. ' Here I have used a Label instead of an EditBox ' to prevent the user entering an invalid date. ' Note: I put my comments below lines & subs ' for no reason, it's just the way I do it. ' LoadForm frm1 lblDate.Text = Date$ cmdClose.SetFocus ' Do Sleep Until Me Is Nothing ' Sub mv1_DateClick(DateClicked As Date) lblDate.Text = Date$(DateClicked) ' This gives me the exact date format I want cmdUp_Click EndSub ' A MonthView date selected - Display date in label & hide MonthView Sub cmdDown_Click mv1.Visible = True mv1.SetFocus mv1.ShowToday cmdUp.Visible = True cmdDown.Visible = False EndSub ' Show MonthView - Show Up Button & Hide Down Button Sub cmdUp_Click mv1.Visible = False cmdDown.Visible = True cmdUp.Visible = False EndSub ' Hide MonthView - Show Down Button & Hide Up Button Sub mv1_LostFocus cmdUp_Click EndSub ' Want the same result as Sub cmdUp_Click Sub cmdClose_Click frm1.Close EndSub ' Bye !!! Proc Dummy EndProc ' $DatFile :{3} 147, 270 PCAUDtWMHCgDBIIASCgAyATIaIPCRMCFzISUPiPDvP//Ywkl38kkCFvFLK5jeIc7P7/bOiFMdJoM BvU1DsBJuswxLCyREgQtKJBnKAGRQJiI3JLDho8MjX0VcUnYZsuC/3VepUWO3H222RE+R4vX43Ve pUWK+hsss8OIG15UnwQ+B0KR0cSaeaLx2yTrRqiBCAAA :{2} 149, 270 RCAUDtWMJCgDBQIAYCgAyAhEiGPilEjURESQPCPDvP//yV4YYcPJpQxbmhSzC3+z+/mh3RT3BKTw NV9AbgiLMeAjgcEBJWtwSw4CiREciI2u2DwEnFjQ2z1rMroh0ujss2t56snRKH222RE+R43Z4rdb uO7J4H//fXilZliV8a4m/tQGKeSt62Nie1wMyKmgoM/DAAA= :{frm1 282, 324 WEAUDtWMOEARBkQAQEgBWBhQZ8C8IQkGyPxTSExbFNh8YIXFlERERIUIhZIJWY2sRECKSESEh3yN /S//CY2kFgAFhEAIMABIABCBDCChQomip2F3zQw9p3w0IMuvJmhwLHSb78ya3pkFvTgEKU/uSL8A lQYQs5sZ3E4kNvS51f1Z74IE6OCheIEKhWt1i3suCuCB6bhuxxQW5ZghjThRZPvDlCf+8XOi4I0r AoqoJp37hgA736H3pRIkCZdnhA9vQncNl+qh/orw1k0ihUURBEMe8FKaklClopgSL2aHCmlPP6m0 awQIgmtFM0OYr6ME4+JK8PLf+aBLTIJmCDVg0m+m35sGShOCOLBmjhM1xg104S4X4jnJwAAA $DatFile

'Here is a code example from GFA32 ' Hans Mueller 10/19/99 ' WinVer OpenW 1 Mode StrSpace 0 AutoRedraw = True PrintScroll = True Global z$ Print " "; Screen.WinVer Print z$ = " " + Screen.WinVer Print z$ Print Print " x = "; Screen.x Print " y = "; Screen.y Do Sleep Until MouseK = 2

' Beispiel für das Starten von Anwendungen und Warten auf dessen Ende. ' Funktioniert nicht mit Pbrush.EXE, da Pbrush nur MSPaint aufruft ' und selbst sofort beendet wird und dies gleich zurückmeldet. ' Ersetze INFINITE durch Anzahl Millisekunden, wenn nur eine begrenzte ' Zeit gewartet werden soll; z.B. 1 sek. --> ~WaitForSingleObject(pHdl, 1000) ' Author: Ulrich Erwerle ' EMail: industrie-soft@t-online.de StarteProgramm("NotePad") ' starte Programm und warte ..... Beep ' zur akkustischen Kontrolle Proc StarteProgramm(Programm$) Dim pHdl As Handle = System(Programm$) ' Dim, Aufruf und Zuweisung If pHdl ' gelungen ~WaitForSingleObject(pHdl, INFINITE) ' warte, bis beendet ~CloseHandle(pHdl) Else ' Programmstart erfolglos Message "kann " + Programm$ + " nicht starten !" EndIf EndProc

' CreatePicture OpenW 1 Local i%, h%, p As Picture For i = 0 To 255 Step 2 Color RGB(i, i * 2, i * 3) Circle 100, 100, i / 2 Next i Get 0, 0, 200, 200, h Color 0 ° Set p = CreatePicture(h, 1) ° °'PaintPicture p, 200, 0 ° °'h = LoadIcon(_INSTANCE, 1) ° °'Set p = CreatePicture(h, 1) ° Set win_1.Picture = p ° Win_1.PictureMode = 1 ° Win_1.Refresh Do : Sleep : Until MouseK = 2

LoadForm frm1 Local f f = "c:\gb32\abouthlp.exe" Global b As Date b = FileDateTime(f) Label1.Caption = b Statbar1.SimpleText = f Text1.Text = "File Checked" Do : Sleep : Until Me Is Nothing Sub Command1_Click '##E# frm1.Close $DatFile $FormVersion = 2 :{frm1 246, 253 yDAUDtWMqDQ/AUOAoDgBNBn+T80IvFU4xJ3TwXzbiUTUCLREhEyQRERRDRkMPJiMTUybzUTICF5n 2Q4vEP/7AYKBAAUABAIBOUEC/s8mMUcGCErhQuKNIz/9cLoibIow931XmBprv+9q/QIEsEC/Hhwf IEGClUp8oOP2fbBNhA5YIQUbYhSNEoHnC8eHXmeUOk2KSUE+2z7j57WQmpjilFr1wGIqhA3omwkK hFdRKzzZGntghA7zaIYrG2Ag3wP14SgXl26uLzljhB7da7tgnQQeMweqGQwVNZUgxAzkvgjHOhio AfMECiXf7XRI01TofGEEAAAA $DatFile

OpenW 1 Local bild%, i% For i% = 1 To 30 Circle 200, 200, 10 + i% * 2 Color i% * 1000 Next Get 120, 120, 280, 280, bild% Line 0, 119, _X, 119 Line 0, 281, _X, 281 Put 300, 120, bild% Do Sleep Until Me Is Nothing CloseW 1 FreeBmp bild%

OpenW 1 Print GetDevCaps(HORZRES) Print GetDevCaps(VERTRES) Do Sleep Until Me Is Nothing CloseW 1

OpenW 1 // aktiviert den Hilfe-Modus, wie das // Anklicken des Hilfe [?]-Knopfes // (sofern im Fenster eingeblendet) CenterMouse Win_1 ~SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_CONTEXTHELP, 0) Do Sleep Until Me Is Nothing

'DriveSerialNum(also CD) Global gbCrLf = Chr$(13) + Chr$(10) ShowDriveInfo("C:") Sub ShowDriveInfo(drvpath) Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0 : t = "Unknown" Case 1 : t = "Removable" Case 2 : t = "Fixed" Case 3 : t = "Network" Case 4 : t = "CD-ROM" Case 5 : t = "RAM Disk" End Select s = "Drive " & d.DriveLetter & ": - " & t s = s & gbCrLf & "SN: " & d.SerialNumber MsgBox s End Sub

' LBAddString ' copy TextBox Text to List Box Global gbCrLf$ = Chr$(13) + Chr$(10) LoadForm frm1 Center '##E# Label1.Caption = "Copy From TextBox To ListBox" With List1 .AddItem "help" .AddItem "Gfa Basic" .AddItem "Mac Basic" .AddItem "Gfa Basic 16" .AddItem "Gfa Basic 32" End With With Text1 'Text1.Text = "Add to List Box" + gbCrLf$ Text1.Text = "List Box addittion" End With Do : Sleep : Until Me Is Nothing ° Sub Command1_Click List1.ListIndex = SendMessage(List1.hWnd, LB_ADDSTRING, -1, Text1.Text) Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 279, 305 TEAUDtWMLEQMBYQA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcAFUVGe0FDALAAAWOEAANARAAlAFBAAhT0HAEYEvAQBTkSE KIQA+/XFpcgFAAATpNHdxAQDAA9JFBAAHQEAg8NRAAc1ENBADGRYX8CAHoQAFM0bt1WYuRWMAMAA ArARS8yBIA4dEBAgsOEEAE4QvBXeVoFABQhJAIDEqERJHQAoqUEAAJJRAA4uRkyAFhXa0ZBJHcBT hJWZsFDAJAAADNEAAAfQAgsgFBAAHO0IAEIbiBRGVE+BEswwAAwBBJXahxGF3EgDCAAA $LanguageId = 0409 $DatFile

' GetUserName LoadForm frm1 Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long Print rgbGetUserName Label1.Caption = "User Name Is: " + rgbGetUserName Do : Sleep : Until Me Is Nothing 'Delay 4 Function rgbGetUserName() As String 'returns the name of the user Dim username As String username = Space$(256) If GetUserName(username, Len(username)) Then rgbGetUserName = Left(username, InStr(username, Chr$(0)) - 1) Else : rgbGetUserName = "(unknown)" End If End Function Sub Command1_Click '##E# frm1.Close $DatFile $FormVersion = 2 :{frm1 157, 162 ZCAUDtWMRCgoAwIAiCQAzAvAPNybBhPCxQX8T8E918mNlIRlDJqkmZPJaEHlCO1n2r1zzl2BGRER ERERA9iIPQBER52KYQNCDWejXqaPerspYERoEx7ExHRIEEiPCUJvloVgIeuVEukCX9LeyFlwnm9K PwyeDlIenI+IiIigTUI7OVBaFAC0g1CJMX840iAbJF+nuJzIiIiQQAAAAA== $DatFile

' LabelUrl '##E# '##B# Global gbNullString$ = #0 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Form_Load Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 Command1.Caption = "Exit" With lblLink °lblLink. .AutoSize = True .Caption = "http://www.helpmagician.com" .ForeColor = RGB(10, 100, 200) .Font.Underline = True End With End Sub Sub lblLink_Click() Call HyperJump(lblLink.Caption) End Sub Sub HyperJump(ByVal URL As String) Call ShellExecute(0, gbNullString, URL, gbNullString, _ gbNullString, 1)//normal window End Sub Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 157, 158 ZCAUDtWMRCgnAwIAeCQAzA/EPNybcEPChE09C8E914hIT+Y8pJUI3IEf0TAH7KGFznwr1vHV/DgS ERERERE+XEiHqAjr9OBFsRoQzzyTsha5B0W2NiIci4li4jIECExHRamwkbiBjglhWEMrgKuLC/iT onm5EOR8SR8REREBBAFydFb1JMinkWgG0Fk5qFP4CSozbVnIiIiQQAAAAA== $LanguageId = 0409 $DatFile

'LB_ITEMFROMPOINT ' Shows index number of ListBox Item Const LB_ITEMFROMPOINT = &H1A9 Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long ' Now for the code ... '##E# ' First we're going to populate the list box in the form load event Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() LoadForm frm1 List1.AddItem "(You Can Still) Rock in America - Night Ranger" List1.AddItem "Born Entertainer - Veruca Salt" List1.AddItem "Don't Be Cruel - Elvis Presley" List1.AddItem "Home on the Strange - Geddy Lee" List1.AddItem "Original Prankster - The Offspring" List1.AddItem "You Give Love a Bad Name - Bon Jovi" List1.AddItem "Your Sweetness is My Weakness - Barry White" End Sub ' Now we handle the mouse move event Sub List1_MouseMove(Button&, Shift&, x!, y!) Dim ItemNum As Long Dim XPos As Long, YPos As Long ' if you set your ScaleMode to Pixels you won't need these two lines of code. ' The LB_ITEMFROMPOINT message requires the XY coordinates to be ' in pixels. So be sure to convert to pixels from whatever format you are using. XPos = Word(x / Screen.TwipsPerPixelX) YPos = Word(y / Screen.TwipsPerPixelY) ' Send our message ... the XY coordinates are passed as a single long value ' so we must shift the bits (multiply Y by 65536) so that the Y value is in the ' most significant 2 bytes of the long value ItemNum = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0, ByVal ((YPos * 65536) + XPos)) If ItemNum < List1.ListCount Then ' set out tooltip text List1.ToolTipText = List1.List(ItemNum) ' set our label to the item index Label1.Caption = "Item # " + CStr(ItemNum) End If End Sub Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 251, 267 3DAUDtWMvDwCBoOA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcAFMl2c0FDANAAgsOEAAbERAAmaFBAQsT0EAMYErAQBTkSE ucAHFwUYiVGbxAQCAAQ4DBAASLEAAmVRAAANDtBABmEdl1GIjcRVCEhMBwAASEDAyEhMHQw/DBAA 0OEAw8URRk2BNoCAB20b2VGIN9WdzVGIPZXZyBSECBwcXUjBH0BACM0bt1WYuRWMAMAAgmLRAAiM FBAYBSEAAU6QQAQgFhXa0RRJBEwAAAA= $LanguageId = 0409 $DatFile

'FormWipe LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Form_Unload(Cancel As Integer) Dim counter As Integer Dim I As Integer counter = Me.Height '##E# 'Collapse Form Do : DoEvents counter = counter - 10 Me.Height = counter Me.Top = (Screen.Height - Me.Height) / 2 Loop Until counter <= 10 I = 15 counter = Me.Width 'Strech form to edges Do : DoEvents counter = counter + I Me.Width = counter Me.Left = (Screen.Width - Me.Width) / 2 I = I + 1 Loop Until counter >= Screen.Width End Sub Sub cmd1_Click Form_Unload(True) frm1.Close $DatFile $FormVersion = 2 :{frm1 104 EAAAAU6QAAQpDBAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAj1GZxAwAAAGzEBAceUEAArIRAAsCEBBABWEepRHAAAAAAAAABEA= $LanguageId = 0409 $DatFile

' GetDisplayColors Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _ ByVal hdc As Long) As Long Declare Function GetDesktopWindow Lib "user32" () As Long ' Constants for get device caps Const PLANES = 14 Const BITSPIXEL = 12 '*----------------------------------------------------------* '* Name : GetDisplayColors * '*----------------------------------------------------------* '* Purpose : Returns the number of colors in the display.* '*----------------------------------------------------------* Print "Colors = "; Print GetDisplayColors Delay 4 Function GetDisplayColors() As Long Dim hSrcDC As Long hSrcDC = GetDC(GetDesktopWindow()) GetDisplayColors = GetDeviceCaps(hSrcDC, PLANES) _ * 2 ^ GetDeviceCaps(hSrcDC, BITSPIXEL) Call ReleaseDC(GetDesktopWindow(), hSrcDC) End Function

' Isnumeric will check for any non numeric characters Local s$ = "12sa345" If IsNumeric(s$) Print "Numeric" Else Print s$; " Not Numeric" EndIf Delay 4

'##E# ' FormAPI Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _ ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As _ POINTAPI, ByVal nCount As Long) As Long Type POINTAPI X As Long Y As Long End Type Global hrgn //Form Code Dim Result As Long 'replace the '4' below with the number of corners that you have in your shape. 'in this exaple the last point is Points(4).Y Dim Points(1 To 4) As POINTAPI Form_Load Do : Sleep : Until Me Is Nothing Sub Command2_Click() 'shape your form with your selected shape. replace the '4' below with the 'number of points you have in your shape (in this exaple the last point is Points(4).Y) hrgn = CreatePolygonRgn(Points(1), 4, 1) 'if you want to shape other control, instead of Form1, replace the "From1" below 'with the control's name. for example, to shape Command1, uncomment 'the line below: 'Result = SetWindowRgn(Command1.hWnd, hrgn, True) Result = SetWindowRgn(form1.hWnd, hrgn, True) End Sub Sub Command1_Click() 'draw the shape on the form, just to demonstrate how your form's shape will be Call Polyline(form1.hDC, Points(1), 4) End Sub Sub Command3_Click() 'restore the form to its orginal shape Result = SetWindowRgn(form1.hWnd, 0, True) End Sub Sub Form_Load() LoadForm form1 'set the X and Y coordinates of every corner. 'Points(1).X and Points(1).Y are the X and Y coordinates of the 'first corner, and so on. 'note that to close the shape, the first point (Points(1)) and the last 'point (Points(4)) are the same. 'If you add another points (Points(5).X and so on), remember to update 'the line: Dim Points(1 To 4) As POINTAPI to 'Dim Points(1 To 5) As POINTAPI 'and the line: hRgn = CreatePolygonRgn(Points(1), 4, 1) to 'hRgn = CreatePolygonRgn(Points(1), 5, 1) Points(1).X = 500 Points(1).Y = 500 Points(2).X = 0 Points(2).Y = 0 Points(3).X = 1000 Points(3).Y = 0 Points(4).X = 500 Points(4).Y = 500 End Sub Sub Command4_Click form1.Close $DatFile $FormVersion = 2 :{Form1 211, 240 PDAUDtWMHDA8AIMADDgBKBhQ6Tj8WQEKRERkfNvVY5RF5KDFhEREVERM4IZkUNhIxIRMB9I6adI/ OAAJAAABIMMEChQMtkaOYmDheWXYT/9svwE3QYw765anCrz13bC6jaaHHhwuiQYPEClQL2aSqcmn 7Us7LkCBlWDhvaI01G2JXjh/q/X5I4SdpUuMFEGlJgt1AdnaXk+4qNMF+Bw7q/Op3xTDtDjhUwt6 cIIqG4T8xWL9E+Fz5euzY0ihmAlhUgq5cguq8mpWZJ8n5Rg2nHAAAA== $DatFile

°DELETING ITEMS FROM A LIST BOX °After selecting items in a list box, you can delete those items with one short procedure, which relies on the control's Select property: LoadForm frm1 label1.Caption = "Select Item to Delete" fill_list Do : Sleep : Until Me Is Nothing Sub fill_list With lstDelete .AddItem "Item #1" .AddItem "Item #2" .AddItem "Item #3" '##E# .AddItem "Item #4" .AddItem "Item #5" End With Sub cmdDelete_Click() Dim i As Integer For i = lstDelete.ListCount - 1 To 0 Step -1 If lstDelete.Selected(i) Then lstDelete.RemoveItem i Next i End Sub ' When an item has been selected, the lstDelete.Selected(i) property returns True. ' When this property is True, the If statement deletes that item using the statement: 'The For loop does its trick by looping backward through the selected items ' . ' You can't delete the items in numeric order, because doing so constantly ' resets the index values. Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 247, 267 zDAUDtWMrDwCBYOA//PAEQAAAAAARMAEDcgGWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmc pZWEjcACIAAAA+AAAAIAAAQAAcQEHcAGsNHdEVGblRXZA0AAAy6QAAMKEBA4EVEAAbMRTAwgR8CA FMRLRIzAFMWbkRhKH4wAAAgFEBAceUEAABLRAAY2DtBABOBGQ4WBsV2Y0VGZUQ5BKEQAD9WbtFmb kFDADAAUvU0FsIwBBABABWEepRnFkcwFsFmYlxWMAkAAAe/QAAglCBA8hVEAAA3QjAQgsJGEZUxu HQwCDDAAHEkcpFGbUcTAWIAAAA== $LanguageId = 0409 $DatFile

'##E# 'ListToList // Add two list boxes (List1 and List2), a combo (Combo1), three command buttons // (Command1-Command3) and a Label to a form, and add the following code: ' I couldn't get this to work so John Findlay fixed it for me. ' Thanks John -What a friend! //-------------------------------------------------------------------------------- LoadForm frm1 cmd_Close.Caption = "Do List" Do Sleep Until Me Is Nothing Sub frm1_Load Dim counter As Long For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next counter = Screen.FontCount EndSub Sub cmd_ListToList_Click Dim success As Long success = CopyListToList(List1, List2) Label2 = CStr(success) & " items copied to Listbox." EndSub Sub cmd_ListToCombo_Click Dim success As Long success = CopyListToCombo(List1, Combo1) Label2 = CStr(success) & " items copied to Combo." If success Then Combo1.ListIndex = 0 cmd_Close.Caption = "Exit" EndSub Sub cmd_Close_Click frm1.Close EndSub Function CopyListToList(source As ListBox, target As ListBox) As Long cmd_Close.Caption = "Do Combo" Dim c As Long 'get the number of items in the list Dim numitems As Long Dim sItemText As String * 255 'get the number of items in the source list numitems = SendMessage(source.hWnd, LB_GETCOUNT, 0, 0) 'if it has contents, copy the items If numitems > 0 Then For c = 0 To numitems - 1 ~SendMessage(source.hWnd, LB_GETTEXT, c, sItemText) ~SendMessage(target.hWnd, LB_ADDSTRING, 0, sItemText) Next End If 'get the number of items in the target list 'and return that as the function value numitems = SendMessage(target.hWnd, LB_GETCOUNT, 0, 0) CopyListToList = numitems EndFunc Function CopyListToCombo(source As ListBox, target As ComboBox) As Long Dim c As Long 'get the number of items in the list Dim numitems As Long Dim sItemText As String * 255 'get the number of items in the source list numitems = SendMessage(source.hWnd, LB_GETCOUNT, 0, 0) 'if it has contents, copy the items If numitems > 0 Then For c = 0 To numitems - 1 ~SendMessage(source.hWnd, LB_GETTEXT, c, sItemText) ~SendMessage(target.hWnd, CB_ADDSTRING, 0, sItemText) Next End If 'get the number of items in the target combo 'and return that as the function value numitems = SendMessage(target.hWnd, CB_GETCOUNT, 0, 0) CopyListToCombo = numitems EndFunc $DatFile $FormVersion = 2 :{frm1 306, 397 uEAUDtWMmEQjBESAkEgBfBhx0Tj8IIzGx8TEPRvJHJk/MNRRRUyIiEEFyExEhE2EKNuIhQCJugvC PD37w/gAe/RFRACMTGBgBAoCBgCIIQABJxGChuk/QHG/BO/5AS2zODXUo9uFaYKEYCB9y07n1tM9 MotSJECBAECdLhQPEClQ6Jl0If9m3WwRI4pGC8rBAJMHoDrxWAPPCDHNfPGDHP+SlvgjAZQkn0VW sFvkkuqzvnzbBEECoqGc2yB7mzhOkqtAciuOMsQ4FKA5BFFMM/cksEEEC1aJYNH6YZMEAV1TYPGL a+Cloyw06i3BuIacSbhL1Jth41XTVU5QyQl08NjggAZRLsjnhjlweGMrRcESmk7/kBpvgiQX1YIw 3dwOxcIgmqpwuaC8WnZ5qO0kCAAA $LanguageId = 0409 $DatFile

Const WM_SYSCOMMAND = &H112 Const SC_MONITORPOWER = &HF170 LoadForm frm1 '##E# Do Sleep Until Me Is Nothing Sub turn_off 'Standby monitor : °~SendMessage(fRM1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1) ° End Sub Sub Command1_Click 'Turn off Monitor ~SendMessage(frm1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2) Sub Command2_Click 'Standby monitor : ~SendMessage(frm1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1) Sub Command3_Click °'To turn on the monitor: ° ~SendMessage(frm1.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1) $DatFile $FormVersion = 2 :{frm1 168, 208 kCAUDtWMcCA0AcJAZCgA+Ahp1Xj3TwTMZ/08mdyIcYiFzUhJkECFRIHRBKnKSQqJ5n2r1/5xRIEC thlhkGOaDhsWdBLnzr+CPkCBKerb1c3/W1+s+zmpkBDhwujQYPEClQqlSiGfXXzd5+CDhQeMEijB pMsG2VY9K879tr/+deT8pEnNlhy0XQ40Xz203xT4vev4p4mw1mggxJXF1siqCxLzlQPKDAAA $DatFile

Const gbdirectory = 16 Global f$ = "c:\gb32\" Print f$ Print DirExists(f$) Delay 4 Function DirExists( Fle$ ) As Boolean Dim A% On Error Resume Next A% = GetAttr( Fle$ ) If Err = 0 Then If A And gbdirectory = gbdirectory Then DirExists = True Print "Does Exist" End If End If End Function

' Author Unknown LoadForm frm1 Do Sleep Until Me Is Nothing Sub frm1_Load Local i% ' Auswahl mehrerer Einträge erlauben lb1.MultiSelect = True '##E# ' Sortierung abschalten lb1.Sorted = False ' Listbox füllen For i = 1 To 10 lb1.AddItem "Testing " + Format(i) Next i Sub cmd1_Click Local i% For i = 0 To lb1.ListCount - 1 ' Null-basierte Indizes! If lb1.Selected(i) cb1.AddItem lb1.List(i) EndIf Next i // cb1.ListIndex = 0 ' ersten Eintrag anzeigen cb1.Visible = True Sub lb1_Click lbl1 = "Selected:" + #13 + _ lb1.List(lb1.ListIndex) Sub cmd2_Click cb1.Clear lb1.Clear End Sub $DatFile $FormVersion = 2 :{frm1 263, 280 DEAUDtWM7DAGBYPA//PAFQAAAA8tEFxAH4CAodZRAAPtFBDAVYmctFDATUKAAQQTTByUh52cgMVZ ylmZAAAAAgAAAA4DAAAgAAAABAwBRcwBSwmYxAQDAAAcDBAQ/QEAQpXRAAmrENBADGRKAUwEnEBL HEyBj1GZxAwAAAXLFBAwoUEAgLORAAIrDlBABOFavdHITVGblNGdlR2ErcgFAEQAsJGbxAQCAAoj DBAA0MEAwSXRAAw/DVBABeheCEhKHQhAAOmYxAADAAwhDBA8lUEAAJRRAAYnDNBABchdFAAEQI4B EIDADAAAHSUAAE2EmcgCAYBRWAQgDxWZhJHIMl2c0ZReAAA= $FileDescription = -<({[]})>- $Comments = Autor: GFA Support, support@gfa.net $CompanyName = GFA Software Technologies GmbH $LegalCopyright = © 1999 GFA Software Technologies GmbH $LanguageId = 0407 $FileVersion = %d.%d.%d.%d $ProductVersion = %d.%d.%d.%d $DatFile

'##E# 'WindowsMode Declare Function GetSystemMetrics Lib "user32" _ (ByVal nIndex As Long) As Long Public Const SM_CLEANBOOT = 67 'Add the following code to the form containing a label and a command button: LoadForm form1 Do Sleep Until Me Is Nothing Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1 : Label1 = "The system was started in Safe Mode." Case 2 : Label1 = "The system was started in Safe Mode with Network support." Case Else : Label1 = "Windows is running normally." End Select End Sub Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{Form1 199, 217 DDAUDtWM7CQ2AYLA7CgADBhQPNybxjAxRpj/18GFEFx8YYSI0ERMRcDKRIeMYoSSVcxE8n2h/u18 t8OCDDhQIskOSNXcqhQuaMIy9+7WQDrQgi3vpv8s+pvz9V3LXNDGChukQoHChSot0aq0mVfafLoI 4MZNEeihu5aoTLeF+9ePe+orN4gYI0kuvmt7ReTmgQ8+9NPPuFShO1YgnqaoTyaIwMaK8Lede8mg +JLRNCLliHftiyQKMdVf0dc3KHh/KjV/P2AAAA== $DatFile

'FormTilePic ' make a form form1 ' put a picture box on the form ' Make two Command buttons ' Command1 & COmmand2 LoadForm form1 Global i, j Do '##E# Sleep Until Me Is Nothing Sub Command1_Click For i = 0 To 10 For j = 0 To 10 form1.PaintPicture image1.Picture, j * _ image1.Width, i * image1.Height, _ image1.Width, -image1.Height Next j Next i End Sub Sub Command2_Click form1.Close

$Library "c:\gb32\libs\vbconstants.lg32" 'API Calls 'Function GetDriveType 'lpRootPathName : string that specifies the root directory of the disk to return information about. If lpRootPathName is an empty string, the function uses the root of the current directory. Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 'API Constants Public Const DRIVE_UNKNOWN = 0 Public Const DRIVE_DOES_NOT_EXIST = 1 Public Const DRIVE_REMOVABLE = 2 Public Const DRIVE_FIXED = 3 Public Const DRIVE_REMOTE = 4 Public Const DRIVE_CDROM = 5 Public Const DRIVE_RAMDISK = 6 LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click() 'Get the type of the D:\ Drive Select Case GetDriveType("F:\") Case DRIVE_UNKNOWN MsgBox "Type Unknown", vbExclamation Case DRIVE_DOES_NOT_EXIST MsgBox "Type Unknown", vbCritical Case DRIVE_REMOVABLE MsgBox "The disk can be removed from the drive", vbInformation Case DRIVE_FIXED MsgBox "The disk can not be removed from the drive", vbInformation Case DRIVE_REMOTE MsgBox "The drive is a remote (network) drive", vbInformation Case DRIVE_CDROM MsgBox "The drive is a CD-ROM drive", vbInformation Case DRIVE_RAMDISK MsgBox "The drive is a RAM disk", vbInformation End Select End Sub Sub Command2_Click '##E# frm1.Close $DatFile $FormVersion = 2 :{frm1 154, 157 WCAUDtWMOCQnAkIAdCQAwAh80ExbBTvAPBfNvRRMVMe8KYvDXcxIC9DEh+U/2UTNhIfavWPPCRER ERERQdjoXQBFN1nUABbECwcMcaRiGOWqeaREBhIcREhbExEAC3IOz/bRJSRFB3Ls5shveGKViJkT VPmWGHOLa8iIiIiZOz/bRJURFAZthNnN81zQpSGh8C1DZERERMDAAA== $DatFile

'##E# ' FormFill5Ways LoadForm frm1 Full Combo1_Add() Combo1.ListIndex = 0 Do Sleep Until Me Is Nothing End Sub Command2_Click() ScaleMode = basTwips Local Int x, x2 // Line (0, 0)-(Me.Width, Me.Height), QBColor(1), BF For x = 0 To 128 'Vertically Fill If Combo1.ListIndex = 0 Line (0, x * Me.Height / 128)-(Me.Width, Me.Height), RGB(0, 0, x * 2), BF EndIf 'Horizontally Fill If Combo1.ListIndex = 1 Line (x * Me.Width / 128, 0)-(Me.Width, Me.Height), RGB(0, 0, x * 2), BF EndIf 'Diagonally Fill If Combo1.ListIndex = 2 For x2 = 1 To 75 Line (x * Me.Width / 64 - (x2 * 10), 0)-(0, x * Me.Height / 64 - (x2 * 10)), RGB(0, 0, x * 2) Next x2 End If 'Box Fill If Combo1.ListIndex = 3 Line (x * Me.Width / 256, x * Me.Height / 256)-(Me.Width - (x * Me.Width / 256), Me.Height - (x * Me.Height / 256)), RGB(0, 0, x * 2), BF EndIf 'Bottom-Right Fill If Combo1.ListIndex = 4 Line (x * Me.Width / 128, x * Me.Height / 128)-(Me.Width, Me.Height), RGB(0, 0, x * 2), BF EndIf Next x EndSub Sub Form_Load() Combo1.ListIndex = 0 EndSub Sub Combo1_Add Combo1.AddItem "Vertical" Combo1.AddItem "Horizontal" Combo1.AddItem "Diagonally" Combo1.AddItem "Box" Combo1.AddItem "Bottom Right" End Sub $DatFile $FormVersion = 2 :{frm1 148, 151 QCAUDtWMICwlAMIAXCQAuAxTT8148jANBO9PxT1b2MSMPGvWjcj9DIyT29mIxOfm0rMyfj/nCRER EREBUqeRseUCIi2tWI5HhAp0KXXcWJMbTxIiQJinREfExEGxHRJ3ok1CERQriw4Cm8u4BWShuSEP hI+IiIiJK5uXXWYCARgsin4FBnLC/yJ0BZqqGREREzAAAA== $LanguageId = 0409 $DatFile

' PicSaveAsBmp ' Purpose : Load a .wmf and save as a bmp '##E# '. make a form -frm1 ' make a picture boz- Picture1 'Create a new project , add a form then put a picture box and a command button into it . Add block of code into command button click event ! LoadForm frm1 Do Sleep Until Me Is Nothing Sub Command1_Click() 'save meta picture to bitmap file SavePicture Picture1.Picture, "c:\gb32\atest2.bmp" End Sub Sub Command2_Click Dim p As Picture Set p = LoadPicture("c:\gfw\atest2.wmf") 'load meta picture file Picture1.Picture = p Sub Command3_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 213, 235 RDAUDtWMJDw6AQMA//PAFQAAAAQpDFxAH4CAAYZRAAQYFBDAVYmctFDATUKAAQQTTByUh52cgMVZ ylmZAAAAAgAAAA4DAAAgAAAABAwBRcwBYAVajRXdyVWMAEFAAQ7QBAAtDBAY5VEAQ2QROAQgFMBK RkzBQM0bt1WYuRWMAMAAgANRBAILFBAQ7RUE5dQAQAQgTFmdlRBJBEQAUYyBBIDADAAgOOkFkcwB A25QTAQgM9WYkBVSDdBIGAwMRwSAZVkErIAwKSUEKCxVDUEepRnFkAAA $DatFile

' GetFreeResources Const GFSR_SYSTEMRESOURCES = 0 Const GFSR_GDIRESOURCES = 1 Const GFSR_USERRESOURCES = 2 Declare Function GetFreeResources Lib "RSRC32" Alias "_MyGetFreeSystemResources32@4" (ByVal lWhat As Long) As Long Form_Load() Do : Sleep : Until Me Is Nothing '##E# Sub Form_Load() LoadForm form1 Local x 'get resource information Text4.Text = "SYSTEM RESOURCES" Label1.Text = "Free System Resources" Label2.Text = "Free GDI Resources" Label3.Text = "Free User Resources" x = CStr(GetFreeResources(GFSR_SYSTEMRESOURCES)) + "%" Text1.Text = x x = CStr(GetFreeResources(GFSR_GDIRESOURCES)) + "%" Text2.Text = x x = CStr(GetFreeResources(GFSR_USERRESOURCES)) + "%" Text3.Text = x End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 306, 503 uEAUDtWMmEw9BESAlEgBcBhp0Tj8IIRclIT+T8E914ElVk0MkYyISESEyIkEvJiYRIEdyn2r1ZyJ 23yt8ohd+g6BJgAMQEAgIAEgIABCAJAQCWChgo12RSWIwJHCzZdho6f5nBHkChFc8O+ObHLjv3/7 qDhQAAhQXRI0DhQJkapEIqQRu8Z7mPDHhAvaJIKH6kXDBS1pAlMhd/NlNZpYBI3E8fGeCBj5SgXN MSbN0BTVTgSzTQgj3LVpCmYEC3mPngQTYwX02i+1QnY74Lihgwot0B31ASYuG6s+sslMAjZx3uPD IIEo79COJDBJ5QgTFFBKuFPZJyPt8QNESa/3ndvZtsMc5M4LqcCPfKEFEGVOBovtxG7gxG7B91Sr N0lmbPBTfIK0MGQznrBJQqMEAAAA $LanguageId = 0409 $DatFile

'##E# 'LabelColor LoadForm frm1 Label2.Caption = "Move mouse over the label above and it will change colors" Do Sleep Until Me Is Nothing Sub Form_MouseMove(Button&, Shift&, X!, Y!) Label1.ForeColor = &H80000012 End Sub 'Ok, now stick this part into your Label ' s Label1_MouseMove Sub Label1_MouseMove(Button&, Shift&, X!, Y!) Label1.ForeColor = &H000000FF End Sub Sub Command1_Click frm1.Close Sub Label2_MouseMove(Button&, Shift&, x!, y!) Label1.ForeColor = &H80000012 $DatFile $FormVersion = 2 :{frm1 236, 247 oDAUDtWMgDw9AsNAcDgBLBh9C8EFvFPCEhRQPNfNvJTMpQpEWETQRUjNyURUhJhJT82ETQREEG4n k8a97WzZAwIAAABICMMEChwjhFDJVMrhQuKMYadmhxgHqhAP3ftvMFStvz531HZpjjQorJE6hQoE SPpkP15xTCGDKCd6bhw1WQItagsjo0wv572Lpm/8s92Nn24Z+uJeNfZNlswOESeJo/c+NTRUPNNI YjDDGZK2NGME6uiBy6qBtsiPIIVWC/193bR2Kly0eQ5DESasEDNixAf51QnbUW4HA197rxgkp1lz ABROLHdAAAA= $DatFile

'##B# °ListBoxCopy Global b, i, j, vitem Global txtitemdata, sitemtext Dim a$(20) While _Data Read b a$(i) = b i++ Wend Decr i Form_Load() Do : Sleep : Until Me Is Nothing Sub Form_Load() ' LoadForm frm1 Center ' load some items into the list box With List1 For j = 0 To i .AddItem a$(j) Next End With Dim lineCount As Long On Error Resume Next 'get/show the number of lines in the edit control lineCount = SendMessage(List1.hWnd, LB_GETCOUNT, 0, 0) label2 = "Items " & lineCount End Sub Sub cmd1_Click frm1.Close End Sub ' DATA for List1 Data Joe Hurst, Dale Bryant, Bev Brown Data Tom Record, Roland Walters,David Wicker Data John Findlay,Jerry Allen Data Eberhard Funck,Ulli Stemmeler,Peter Sejfried Sub Command2_Click ° Dim sText As String Dim vItem As Variant ' get selected item vItem = SendMessage(List1.hWnd, LB_GETCURSEL, 0, 0) If vItem <> -1 Then sitemtext = List1.List(vItem) txtitemdata = List1.ItemData(vItem) End If ' add selected item in List1 to List2 ~SendMessage(List2.hWnd, LB_ADDSTRING, 0, sitemtext) $DatFile $FormVersion = 2 :{frm1 314, 374 2EAUDtWMuEgdBkSA0EgBeBhQ6T1b1RhhU+TEPNxbBSlHiFkEiExEjISFSETtRs2bSEScBFaQTMi+ L5/DA4PnRMlVAGACBOQggACgIIwwQIECxklUzF5aIwsaNIy/98W4BShwga3XuXZw5yd++1f0Xzgh QYXSIsHChSoFbNPQ4lDptgjQgs5ASwzZAAUrBvpqsAvoyhjQYfJigBx3vr9ncTV5w+s+tQKcBkaI sWD7g5MsjoRLh/KaeJ5habpUGpMPvyQ/XIFC8NXiGLB2aE2KqC/jUwCcsAoje2OpseTSjcDfRuNF o6sE4bO4VXN4Vz5zExgIWHd59tgiHc0ao4MsLrGC0G/C/Pgoluww6c+CGUuiEMxfYBUhw0E9SLFC C6ryz9PR14dbBTnhA7RZh/x+rdocpObzpgHtAAA= $LanguageId = 0409 $DatFile

/*********************** '##E# /* Copy Listbox /*********************** LoadForm frm1 Do Sleep Until Me Is Nothing Sub frm1_Load Local i As Int For i = 1 To 10 lb1.AddItem "Line # " + Format(i) Next i Sub cmd1_Click lb2.Clear Local i As Int For i = 0 To lb1.ListCount - 1 lb1.ListIndex = i lb2.AddItem lb1.List(lb1.ListIndex) Next i EndSub $DatFile $FormVersion = 2 :{frm1 173, 191 pCAUDtWMhCwvAwJA//PAEQAAAAAARMwBdAAAo6dRAAhfFBDAVYmctFDATUKAAQQTTByUh52cgMVZ ylmZRQyBIgAAAA4DAAAgAAAABAwBRcwBSwmYxAQDAAglDBAASPEAgWPRAA3DFNBADGRKAUwEnEBL HwABj1GZxAwAAAFIFBAgdSEAAyaEDcQCDdBABO0bwlHIgASLt0iPUY4BFEQAsJmMA0AAYHYRXkTF AAA= $FileDescription = -<({[]})>- $Comments = Autor: GFA Support, support@gfa.net $CompanyName = GFA Software Technologies GmbH $LegalCopyright = © 1999 GFA Software Technologies GmbH $LanguageId = 0407 $FileVersion = %d.%d.%d.%d $ProductVersion = %d.%d.%d.%d $DatFile

'##E# ' LBCopySelected /*********************** /* Copy Listbox /*********************** LoadForm frm1 Do Sleep Until Me Is Nothing Sub frm1_Load Local i As Int For i = 1 To 10 lb1.AddItem "Line # " + Format(i) Next i EndSub Sub cmdCopySelected_Click If lb1.ListIndex > -1 lb2.AddItem lb1.List(lb1.ListIndex) Else Message "No Item Selected" EndIf EndSub Sub cmdCopyAll_Click Local i As Int lb2.Clear For i = 0 To lb1.ListCount - 1 lb2.AddItem lb1.List(i) Next i EndSub Sub cmdExit_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 234, 297 mDAUDtWMeDQKBkNA//PAEQAAAAAARMwBdAAAo6dRAAhfFBDAVYmctFDATUKAAQYTTByUh52cgMVZ ylmZRQyBIgAAAA4DAAAgAAAABAwBRcwBSwmYxAQDAAglDBAASPEAgWPRAA3DFNBADGRKAUwEnEBL HcBBj1GZD9Gc5NVZsV2Y0VGZAMAAQBSRAAYnEBAgsGxADMEHAEYEgMAIgAiJW8BF5cABBwmYyAQD AgdgFdhQcIQQsxGFcFA4ibhWAUBFcBgJR0RFUBRMHMRR4lGdAMAAAUSRBAwQFBAwKSEAAm9QQAQg ScRFkAAA $FileDescription = -<({[]})>- $Comments = Autor: GFA Support, support@gfa.net $CompanyName = GFA Software Technologies GmbH $LegalCopyright = © 1999 GFA Software Technologies GmbH $LanguageId = 0407 $FileVersion = %d.%d.%d.%d $ProductVersion = %d.%d.%d.%d $DatFile

Global filename = "wavefix.txt" Dim MyAttr As Integer MyAttr = GetAttr(filename) If MyAttr = 1 Or MyAttr = 33 Then 'read-only Print "read Only" EndIf

Dim n() As Integer On Error Resume Next If UBound(n()) < UBound(n()) Then Print "Not Initialized" Else Print UBound(n()) End If On Error GoTo 0 ' shut off error trapping Delay 4

' ZeroPad /************************************** /* When sorting a list of numbers they /* all need to be the same length /* This routine pads all numbers to /* 6 digits so all are the same length /************************************** Dim a$(20) Global i, j, a LoadForm frm1 While _Data Read a a$(i) = a a$(i) = String$(6 - Len(a$(i)), "0") + a$(i) i++ Wend Decr i For j = 0 To i List1.AddItem a$(j) Next j Label1.Caption = Str$(i) & " Zero Padded Items In List" Do Sleep Until Me Is Nothing Data 7456,2250,221,822456,7406 Data 2,8,24451,802020,24 Sub CommandExit_Click frm1.Close

' Allows deletion of Multiple Items from a ListBox ' by Findlay/Bryant LoadForm frm1 Center AutoRedraw = True Global i, a '##E# For i = 0 To 20 // to fill the ListBox lb1.AddItem "hello" + Str(i), -10 + i Next Do Sleep Until Me Is Nothing Sub frm1_Load ' set for multiple Selections lb1.MultiSelect = True EndSub Sub cmdExit_Click frm1.Close EndSub Sub cmdDelete_Click For i = lb1.ListCount - 1 To 0 Step -1 If lb1.Selected(i) Then lb2.AddItem lb1.List(i) lb1.RemoveItem i End If Next i EndSub $DatFile $FormVersion = 2 :{frm1 256, 297 8DAUDtWM0DQKB8OAwDgBQBhpPVvV3jwExOSE5TT818mI5JWESIjQSchIyQRIzT2XJKzUiEVKzn2N 1vE/9H/PiCgVEIoIQEAQCQgAHHhQI0GeGSqYFDBzRlhL3+3dGmIGCHI4d81sdCjvV/yd3slMYIE6 aCheIEKhULl8kndGsEC6PLBrrhA/1AV2rTBONhhlJfNjpvF173RGy/DDhu4YJYNGo6dN0pd+Eo45 TkuQ5RY6atmr/1wQIw8s0NGD8kEDdYc6KQZy0DKWyV1/17NlCyzSbkKbxNKFe0/AhjULPnlGUEI/ FLB9nBMgj1Qg4psLIkK3jA4vuT4jrgm2yRAAAA== $LanguageId = 0409 $DatFile

' CBCopyItems ' Copies CB1 To CB2 LoadForm frm1 Center Global i, lc For i = 10 To 20 // to fill the ComboBox (CB1) cb1.AddItem "hello" + Str(i), -10 + i Next Do Sleep Until Me Is Nothing Sub frm1_Load ' set for multiple Selections 'cb1.MultiSelect = True Local lc As Int lc = cb1.ListCount lbl1.Caption = "Item" + Str$(lc) lbl2.Caption = "Copied Items" AutoRedraw = 1 Print "ComboBox Copying" Sub Command1_Click '##E# frm1.Close Sub Command2_Click For i = cb1.ListCount - 1 To 0 Step -1 If cb1.Find(i) Then lbl1.Caption = "ItemsCopied " & cb1.ListCount cb2.AddItem cb1.List(i) ' remove items from CB1 'cb1.RemoveItem i End If Next i lbl2 = "New Items " & cb2.ListCount $DatFile $FormVersion = 2 :{frm1 258, 330 +DAUDtWM2DgSBEPA+DgBNBhpPNR8IMBLxEJLT8msyjhMTIRERFEOhIiMb1mLREzIiEBFvWp98Ex7 R0BAQwgEBAEIAFghjQIQL2GSnhACyhg4szgK5MuXDT0ChDte/8K2PlPvuZYXeIECKChuoQoHChSI 1SpHzzrBLhAxYJQoGsihaoDh4U4vJMYYyXbMdsYe+NYJ09kn0VGybqsk08ofW/awRIQIWCX1Qgct JRgrw/z2GpS7scEWuCvtziu8jSBggadhrJjh3tPFJZx97bx+V/GGCB+xSQXOAAe1QgZ8K8H3Jw6L ufPvbasUKmGTl1wQoLN/c2YvQPVWC/ZS25cZDAAA $LanguageId = 0409 $DatFile

' CBCopyItems ' Copies CB1 To CB2 ' Deletes CB1 items after copying LoadForm frm1 Center '##E# Global i, lc For i = 10 To 20 // to fill the ComboBox (CB1) cb1.AddItem "hello" + Str(i), -10 + i Next Do Sleep Until Me Is Nothing Sub frm1_Load ' set for multiple Selections 'cb1.MultiSelect = True Local lc As Int lc = cb1.ListCount lbl1.Caption = "Item" + Str$(lc) lbl2.Caption = "Copied Items" AutoRedraw = 1 Print "ComboBox Copying" Sub Command1_Click frm1.Close Sub Command2_Click For i = cb1.ListCount - 1 To 0 Step -1 If cb1.Find(i) Then lbl1.Caption = "ItemsCopied " & cb1.ListCount cb2.AddItem cb1.List(i) ' remove items from CB1 cb1.RemoveItem i End If Next i lbl2 = "New Items " & cb2.ListCount $DatFile $FormVersion = 2 :{frm1 262, 330 CEAUDtWM6DgSBUPA+DgBOBhpPNR8IMBLxEJLT8msyjhMTIRERFEOhIiMb914SExMiIRQx+p9a9L9 MFvDR0BASgyAgEAIAhAQGOChAvYbIdGC0yhg3szgK3EuXDT8CBWAQ7nWv6Z8pVNB5uDhQQRI0FFC 9QIUCpWK9IeeNYJEIGLB/1gVUUDdIEnC/NhBDT+ajpjFxzvBLhun8kuyQeTllkmH7z2XDOCB/xS4 qGCkrNJCcF+f224UanljwyV4tdW0lfUKgLz6CVTGDvbfKSyi733e1b+NMEC8jlgucABYoGCgIeF+ j7+J9F3vn3NNWKFTjpyaYI0lmfObsXonKLh/MH5UusBAAA== $LanguageId = 0409 $DatFile

' CBRePopulate LoadForm frm1 Center Do Sleep Until Me Is Nothing End Sub frm1_Load Local Int i For i = 10 To 20 // to fill the ComboBox (CB1) cb1.AddItem "hello" + Str(i), -10 + i Next lblClear.Caption = "Items" + Str$(cb1.ListCount) lblRePop.Caption = "Copied Items" EndSub Sub cmdExit_Click '##E# frm1.Close EndSub Sub cmdRePop_Click Local Int i For i = 10 To 25 // to repopulate the ComboBox (CB1) cb1.AddItem "Gfa Basic32 " + Str(i), -10 + i Next lblRePop = "Populated With New Items " & cb1.ListCount EndSub Sub cmdClearCombo_Click 'reamove all items in CB1 lblClear.Caption = "Old Items Cleared " & cb1.ListCount cb1.Clear EndSub $DatFile $FormVersion = 2 :{frm1 333, 449 JFAUDtWMBFQwBwTAMFgBeBhlS808WJR0V8SLPRxbiOFHVIxMVQkEkERIhMhIm9lEuEjQhIRd2avW /Sl8/Dg3a4xMBKQQgIAIgEABFoEULLhQI8c0OS2oeGYa8UcwTemx6s5ZauyzcgCBK+DVuhwCGc7y tcKsc5uTiAQe+SKUEC7WCh9QIUCpnUKafVaQSIQ2cZHGjBm+PD7gJXD/PCDCq6eUmOa2ZoP/2lTK 6PZJcECT5SAQjhd6jhdElvC/RTt9HVasGKNvJBq7gYmT4IgGUNe5bIlmC/q7cm5gkX539LdDplTa EuDHB8Y/MuVC542QL8Hv8Ib4d9NSpEcUZnSwJHwBkGDByZPh/LMNUd2+qEbfF+jxthw051UMItii UKE0aOwELnhA3MAagy0aYzkeBfj93+dzRygLEc3ZwKEC8D1GEExLkURK1OKSGAAA $LanguageId = 0409 $DatFile

' CBRemoveItem ' Bryant and Barbosa LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Load Local i As Int For i = 0 To 7 '##E# // to fill the ComboBox Combo1.AddItem "hello" + Str(i) Next Sub Command1_Click If Combo1.ListIndex >= 0 lbl1.Text = "Removed item #" + Str(Combo1.ListIndex) Combo1.RemoveItem Combo1.ListIndex Else lbl1.Text = "Select item to remove" EndIf EndSub Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{form1 243, 263 vDAUDtWMnDwBBIOAqDgBKBh9C8EFvVPCT0SI/EPNfNeohUtMTMTUSUXMSESEicyTdlYITRxI3n2h xvuYq4/fAIAQAIAEGOChAvvlhkxQgVNEOrODesTYeL8wLEOEP2GP9zoNmJo3eIECKChulQoHChSI tkSe+unXv3CSCBrxSABfByurhOtvnw/iwghHdLKDa04L1mP9LfLMECXxSXVNEYHDd+fmC/mzz3Uy NAsnnZ8YUQoUmMmmkGGCdt1S4qGoTMG6qiaC/VO63vclavrvbBHhgsYgK3Yg+aNEI9ZL8Hzv59cb 819eW+kaRMLLeLHCAAAA $LanguageId = 0409 $DatFile

' CheckCddir Global CD = "f:\" '<<needs quotes Global filepath = CD + "gfabasichelp" Global sResult Const vbDirectory = 16 Debug.Print filepath '##E# sResult = Dir$(filepath, vbDirectory) //"<<no quotes around filepath Print sResult If sResult <> "" Then Debug.Print "data in "; CD Else Debug.Print "no data cd" End If Delay 4

'TextBoxBkColor ' Change BKColor in Text Box Const gbYellow = $FFFF Const gbwhite = $FFFFFF '##E# Global n, i Global s$ = "Watch The Text Scroll" Global gbCrLf = Chr$(13) + Chr$(10) LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click For n = 1 To 50 Text1.Text = Text1.Text & s$ Text1.Text = Text1.Text + gbCrLf Text2.Text = Text1.Text & s$ Text2.Text = Text1.Text + gbCrLf Pause 1 ' Label2.Text = n Next n 'Make a textbox scroll to the bottom '----------------------------------- Text1.SelStart = Len(Text1.Text) Dec n Text1.Text = Text1.Text + "Last Entry" Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 DoEvents Label1.Caption = "Lines " & Text1.LineCount - 1 // Label2.Caption = Text1.LineCount - 1 Sub Command2_Click frm1.Close Sub Text1_GotFocus() ' change the background color to yellow Text1.BackColor = gbYellow End Sub Sub Text1_LostFocus() ' change the background color to whit Text1.BackColor = gbwhite End Sub $DatFile $FormVersion = 2 :{frm1 381, 477 5FAUDtWMxFQ3BwWA+FgBlBhQ6LwTjIfIRM/EPRfNORVkYQxERISUxEhQjIRUhIcEqJvNhIUURs6r wvEr/DcA251/ABigFiQAYEoQgECSBEEQDACCAJQQIECxUTXIszuHoClu2gJGsIdFWwTI0QwX9b8l W97k1KjowmCFhwunQYPEClQL2aP6Pv5dFsEC2zhAyyB6i7ByYaTWAJRrBDLODDRrFwR8gRzWemEp xXCXhUIApcgu9eIwdLEUt9E+lPPSIChHs08VKyHRxJnrgjAZlbhAd1BtX9QgYWa4HDj88TpqnyZN e1K1P/sm5wZCNDHEDDHmbm8GcECAxdIw1dYndOACRdZhf5rvn0mMaYoE2fgTTh3QKYWbPgK99AwQ 0BVDiC/971JwEi3BvR+NHj9SgeOISYPQFUb6mwW6wZk/wJhLRWmYGaJu5SQVPYGQuKNBZ7h/MnV/ 4o6KFhV5tuopM/ugrWZ9tK/kBvFJDunvX8lsvCDKHamgGAKCCAAA $LanguageId = 0409 $DatFile

'##E# ' CBReSort Global aStr(100) As String Global iTotal As Int LoadForm form1 Center Do Sleep Until Me Is Nothing End Sub form1_Load Local rStr As String While _Data Read rStr aStr(iTotal) = rStr cb1.AddItem aStr(iTotal) iTotal++ Wend lbl1.Caption = "Items" + Str$(cb1.ListCount) EndSub Sub CmdExit_Click form1.Close EndSub Data Findlay,Bryant,Funck,Hurst Data Barbosa,Weigand,Record,Wicker Sub CmdResort_Click Local i As Int cb1.Clear QSort aStr(-), iTotal For i = 0 To iTotal cb1.AddItem aStr(i) Next i lbl1.Caption = "Items" + Str$(cb1.ListCount) EndSub Sub CommandResortDesc_Click Local i As Int cb1.Clear QSort aStr(+), iTotal For i = 0 To iTotal cb1.AddItem aStr(i) Next i lbl1.Caption = "Items" + Str$(cb1.ListCount) $DatFile $FormVersion = 2 :{Form1 288, 362 cEAUDtWMUEgaB8QAeEgBRBxMp80IjwSM+T0XjHjSdIkEzYxQzFhEiExTRo2bTIzEhEhEzjXE9QEt /DIAWIVAgERgQEAEIckChw23yQTYIQsHCndjBNqZYXZ4hcIkAwoqxT93qGfZ4WdIECKChdLhweIE Kh2SrVFvqMIJE88VC0zB2v9wO18T4fxW44xVV3h8V5KDOm2aGsGwg2eIQMLK8XvuQQpKsl2z2N79 9emBlG/jwQwfus1D+/Ckzaapfp3if1b2teQMprUWiGF0J5u6rk7XuCJckjh/610WrU0eu+K35Cv2 A9cJQ/LADOVaDyC/jx5IEaGUlntvOry6Mp37LUYokEENJw+p+JmDfv3iXYUAy3j/ArKhI3ooLipQ BAAA $LanguageId = 0409 $DatFile

' ComboDropDown ' ComboDropDown ' CBDropDown ' open combobox when program is run 'On a form, add a two command buttons and a combo box. Add the following code to the form: '##E# Public Const CB_SHOWDROPDOWN = &H14F LoadForm form1 Do Sleep Until Me Is Nothing Sub form1_Load() Combo1.AddItem "Item 1" Combo1.AddItem "Item 2" Combo1.AddItem "Item 3" Command1.Caption = "Show List" Command2.Caption = "Hide List" ~SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, True, 0) End Sub Sub Command1_Click() 'Drop the list ~SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, True, 0) End Sub Sub Command2_Click() 'Close List ~SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, False, 0) End Sub Sub Command3_Click form1.Close $DatFile $FormVersion = 2 :{Form1 211, 242 PDAUDtWMHDg8AIMAKDgAFBhpPNyb/jgEtEj6zT0Xjz1jxrFFDNVIaMlMhEBa4ITWiEhEjUxEt8pd PPvjIYQQIE+jtj0XIQsGCvVdBN2vnHDT/hgArrbrvMostK/2v9QIEUECdJhQPEClQqlSii555XGu HDHhAZnlgqaIQ8M05GvC7r6zk2i5Z15mymxQxisgvmtC1znvi59nv0QLsHJkpI3jph0j68YwRIcd WCkjBzirhOz4UYvxLYYiWzVYxi3URY4I0lW9YdIVWC7VW+5cpFAAAA== $LanguageId = 0409 $DatFile

'##E# 'CBWidthChange °Start a new project, and on the form place a combo box (Combo1), °a text box (Text1), a command button (Command1) and two labels. °Name the label over the combo box Label1, and add the label caption 'for the textbox Label2. The list shouldn't be too wide to start. 'Set the text property of the textbox to 228. ° ° In the form's load event, add code to load several ' combo list items of ' varying length, making sure that some are wider ' than the control's width. Public Const CB_GETLBTEXTLEN = &H149 Public Const CB_SHOWDROPDOWN = &H14F Public Const CB_GETDROPPEDWIDTH = &H15F Public Const CB_SETDROPPEDWIDTH = &H160 LoadForm form1 Do Sleep Until Me Is Nothing Sub Command1_Click() Dim cwidth As Long Dim NewDropDownWidth As Long 'check if a number is entered into Text1. 'If not, bail out. If Val(Text1.Text) 'here we simply set the dropdown list size to 'the value entered in Text1. Note: If the proposed 'width this is less than the width of the combo 'portion, the combo width is used (the dropdown 'can never be narrower than the ComboBox) NewDropDownWidth = Val(Text1) 'resize the dropdown portion of the combo box using SendMessage ~SendMessage(Combo1.hWnd, CB_SETDROPPEDWIDTH, NewDropDownWidth, 0) 'reflect the new dropdown list width in the Label cwidth = SendMessage(Combo1.hWnd, CB_GETDROPPEDWIDTH, 0, 0) Label1.Caption = "Current dropdown width = " & cwidth & " pixels." 'drop the list down by code to show the new size ~SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, True, 0) End If End Sub Sub form1_Load Combo1.AddItem "long names Long Names" Combo1.AddItem "long names Long Names" Sub Command2_Click form1.Close $DatFile $FormVersion = 2 :{Form1 317, 406 5EAUDtWMxEglBwSA3EgBfBhpPNR8IMyOSE5PR814xMPGiQhEREjQRMRQSQSERQE+GJzERESE0RUV 1rFAe581wFZEACoAhICEIEABQEgAAdYIECKrthk3QgeOEezmDT6ZxYM8wPEMgg1v1XK0+WvZ5XfI ECKChuoQoHChSI1SppIHGzcGDWChraJwtG+wQO0hT8J83sGOek2EnmWAxNRejBJhA9aJcVDgCV1Q HQRdh/mwNjhkxQAWMDhzT3hQAAvz3EGDOCB11S3TO03zhA3oswPh5FZbQp84eBLJNMepYfMMECki lu1cARop2Ync4K8H3fpAk7PU43OvdVWLlyGOCNM1OSDMzhAei2C/PO3gxRxgATmDnTaXgUShcq1Q gf0X4HC3I5bzolJwkKnhhQXXejtgUZJ8nJ6n3FZAAAA= $DatFile

//Example listview // Manfred Fietkau OpenW 1 FullW 1 Win_1.BackColor = RGB(240, 240, 200) Win_1.Caption = "listview_example" Ocx ListView lv = "", 10, 10, 500, 300 lv.Appearance = 1 lv.View = 3 //Choosable Columnheaders lv.MultiSelect = True //multiple selection allowed lv.FullRowSelect = True //selection in each column possible lv.CheckBoxes = True //left columns will get checkboxes lv.BackColor = RGB(255, 255, 10)//Yellow lv.ForeColor = RGB(0, 0, 255)//blue lv.GridLines = True //columns are separated by lines - matter of taste lv.CheckBoxes = True //left column gets a checkbox lv.LabelEdit = 1 // we will not allow to edit lv.HideSelection = False //we will still see our selection if focus is lost //add Columnheaders lv.ColumnHeaders.Add , , "Column 1" lv.ColumnHeaders.Add , , "Column 2" lv.ColumnHeaders.Add , , "Column 3" lv.ColumnHeaders.Add , , "Column 4" //shrink listview to width of all columnheaders Local i As Integer, wi As Integer = 0 For i = 1 To 4 wi = wi + lv.ColumnHeaders(i).Width Next i lv.Move lv.Left, lv.Top, 20 + TwipsToPixelX(wi), lv.Height //+20 works fine to prevent horz.scrollbar if vert.scrollbar is drawn //filling with Elements Global Dim li As ListItem Local s As String For i = 1 To 99 s = Str$(i) + "***** ;" + FN st_ring(Rand(10) + 2) + FN st_ring(Rand(10) + 2) + FN st_ring(Rand(10) + 2) Set li = lv.AddItem(i) li.AllText = s Next i //we need a listbox to show what we've done Ocx ListBox lis = "", 10, 20 + lv.Height, lv.Width, 200 lis.Appearance = 1 lis.Sorted = False //need 4 commands too Ocx Command cl1 = "Clear selection", 30 + lv.Width, 10, 120, 30 Ocx Command cl2 = "Clear listbox", 30 + lv.Width, 50, 120, 30 Ocx Command see = "see what we've done", 30 + lv.Width, 90, 120, 30 Ocx Command alldone = "alldone", 30 + lv.Width, 130, 120, 30 Do : Sleep : Exit If Me Is Nothing : Loop Function st_ring(z) Local i As Integer, s As String For i = 1 To z s = s + Chr$(Rand(26) + 65) Next i s = s + ";" //";"=Separator for the columns Return s EndFunc Sub alldone_Click //end program Do Me.Close Exit If Me Is Nothing Loop EndSub Sub see_Click Local s As String //list the checked & selected items in the listbox lis.AddItem Str$(lv.CheckedCount) + "Items are checked" For Each li In lv.CheckedItems lis.AddItem li.AllText Next li lis.AddItem Str$(lv.SelectedCount) + "Items are selected" For Each li In lv.SelectedItems lis.AddItem li.AllText Next li EndSub Sub cl1_Click //clear selecetion (checked & selected items) For Each li In lv.ListItems li.Selected = False li.Checked = False Next li EndSub Sub cl2_Click //clear the listbox lis.Clear EndSub Sub lv_ColumnClick(ColumnHeader As ColumnHeader) Local s As String s = "We clicked columnheader " + ColumnHeader '##E# lis.AddItem s EndSub $DatFile $FormVersion = 2 :{frm1 66 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAA $DatFile

'ListView ' John Findlay Local lvStr As String Local lItem As ListItem ' LoadForm frm1 ' lv1.View = 3 lv1.ColumnHeaders.Add , , "Column 1" lv1.ColumnHeaders.Add , , "Column 2" lv1.ColumnHeaders.Add , , "Three" lv1.ColumnHeaders.Add , , "Four" lv1.ColumnHeaders.Add , , "Five" lv1.ColumnHeaders.Add , , "Six" lv1.FullRowSelect = 1 lv1.MultiSelect = 0 lv1.CheckBoxes = 1 lv1.GridLines = 1 Local i As Int = 0 For i = 0 To 43 Set lItem = lv1.AddItem lvStr = "Number" + Str$(i) & ";" Add lvStr, "2.00" & ";" Add lvStr, "50.00" & ";" '##E# Add lvStr, "100.00" & ";" Add lvStr, "500.00" & ";" Add lvStr, "1000.00" & ";" lItem.AllText = lvStr Next i Do Sleep Until Me Is Nothing End $DatFile $FormVersion = 2 :{frm1 101 EAAAAAAAAAAAAAA4iXEAQFZRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAsZXMAIBAAAvQBAA8CBAKXXEAQpXROAwgsZXMAAAAAAAAAEA= $LanguageId = 0409 $DatFile

'##E# ' ListView by AB -Antonio Barbosa ' 11 April 2001 LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load lv1.GridLines = True lv1.FullRowSelect = True lv1.TextBackColor = RGB(190, 190, 190) lv1.ForeColor = RGB(0, 0, 255) lv1.BackColor = RGB(190, 190, 190) lv1.View = 3 'ReportView Local n As Int Local c As Int Local li As ListItem For c = 1 To 3 lv1.ColumnHeaders.Add , , "Header " + Str(c) Next For n = 1 To 10 Set li = lv1.AddItem For c = 0 To 2 li.SubItems(c) = "Line " + Str(n) + " Column " + Str(c) Next Next frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub lv1_ItemClick(Item As ListItem) Local x As String x = Item.SubItems(0) ed0.Text = x x = Item.SubItems(1) ed1.Text = x x = Item.SubItems(2) ed2.Text = x EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdClear_Click lv1.Clear EndSub $DatFile $FormVersion = 2 :{frm1 284, 374 YEAUDtWMQEgdBsQA//PAEQAAAAAARMwBdAAAoDgRAAIrFBDAVYmctFDATUKAAQYTTByUh52cgMVZ ylmZRQyBIgAAAA4DAAAgAAAABAwBRcwBSwmdxAgEAAI6DBAgKPEAo7ZRAAmaF5AADGxFTY1BYEwY tR2XRVXa0BwAAgGxFBAg3PEAAFKRAAIrDBBABKxFUUSBBUGZwAwCS8xBNAdiFBAQwSEAAA3QaAQg /DAAAUwE0JBKB4/fSUwBGUGZxAwCAAVEFBASKehJCIAAA8/FcwwBDIDALAAI9VEAYdhUFcRHLAxt HEQQkRGTp5WZUUrAwfYRVQrAPAQgQwhFyCxKEMEblFmcUUiAAXNRVQiAVAQgSgxAgEEbsZRKAAA= $LanguageId = 0409 $DatFile

'##E# ' ListView v3 by AB ' 12 April 2001 LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load Global lvLastSorted As Int lv1.HideSelection = False lv1.GridLines = True lv1.FullRowSelect = True lv1.ForeColor = RGB(0, 0, 255) opt4.Value = 1 lv1.View = 3 'ReportView Local n As Int Local c As Int Local li As ListItem For c = 1 To 3 lv1.ColumnHeaders.Add , , "Header " + Str(c) Next lv1.ColumnHeaders(1).Alignment = 0 lv1.ColumnHeaders(2).Alignment = 2 lv1.ColumnHeaders(3).Alignment = 1 lv1.Icons = iml0 ' ImageList with Icons for View =0 lv1.SmallIcons = iml1 ' ImageList with SmallIcons for View >0 For n = 0 To 9 Set li = lv1.AddItem li.Icon = Int(Rnd * 3) + 1 li.SmallIcon = Int(Rnd * 3) + 1 For c = 0 To 2 li.SubItems(c) = "Line " + Str(n) + " Column " + Str(c) Next Next frm1.OnTop = True EndSub Sub opt1_Click lv1.View = 0 Sub opt2_Click lv1.View = 1 Sub opt3_Click lv1.View = 2 Sub opt4_Click lv1.View = 3 Sub cmd_Quit_Click frm1.Close EndSub Sub lv1_ItemClick(Item As ListItem) ed0.Text = Item.SubItems(0) ed1.Text = Item.SubItems(1) ed2.Text = Item.SubItems(2) EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text li.Icon = Int(Rnd * 3) + 1 li.SmallIcon = Int(Rnd * 3) + 1 EndSub Sub cmdClear_Click lv1.Clear EndSub Sub cmdRemove_Click Try If lv1.SelectedCount > 0 lv1.Remove lv1.SelectedItem.Index Else Beep EndIf Catch Message Err$ EndCatch EndSub Sub lv1_ColumnClick(Col As ColumnHeader) Try If Col.Index = lvLastSorted lv1.Sort Col.Index - 1, $10000 lvLastSorted = 0 Else lvLastSorted = Col.Index lv1.Sort Col.Index - 1, 1 EndIf Catch Message Err$ EndCatch EndSub $DatFile $FormVersion = 2 :ab 284, 766 YEAUDtWMQEg/CsQA1EgA/AhMa839MLSIDGhEPR/lzn5z3/POhE2ISERYShDFScCJB9GO/9Bv/O97 4/oBlQ4h1TJUkJLGCBSDhxQQXIILEKWDVXhjLPB/RRXPfpxUJ4Paq2C+3OitohUgDHORB1a6PE+r tw/2RsFNEPG+DmjLRBbpY6QbOnz10Vqk1fmanp2TRbvnz99Y6RSffuvrX78eeevn7z795c/slK55 LHh9RPhe0aU44UZf+SVUccs6ezZVeY2i9YsWHnG69+mrTCmOpY7M1WevZkvZEbRBXqeK35XGv576 x4UIXl8pMGL33xYcZ0TVSc5TRUdsd6NUNulGy69GnqaGnK33Vdl37TC+Srrrr10WaY1c4hmUAAA= :{1} 353, 6608 dFAUDtWMVFA0ZAVASFgByBREUPIJiITEy8i9z90/H+vHFJCeCNSIRIRIxgRERIiRqM7jwEl+a/sL vnhMx6h77/JQEUQAXBGgBIhWABCgQAYTCEQhUipABEfAGkYrjJRE+BOcGowbaCgR+HCDtAIChwW7 7Km2ChwVIQpet1SlQqe0gBQKlIfBt4w2WcAjMxX4P8////1Sil7s65LOoKECarYJVCQY8s2i7knC /x95MqsdHvfGb5WAQWytS2fK3WzP9MLhZvltzxWmQKz5I3WzOsk54UCUQwVWfJjIAkJlyt1c/JDK l55SGdhRCZMpQiITjD5qksrU2+SGJM6mNkdYJD0lsd0kxmh84ZGOoIPHzkWeR5Qutai6jP9DZ14p jrlMEzZNK6EZ0R6XHm+ft+kn4962YGWY4Vld361Zl+Rutmv9OzCZgJCt4OOy0WTilLte8FBpshQZ 8s2ycNECxd4BAAA= :{3} 816, 25808 sMAUDtWMkMA0k9xAOOgBAADpG+vHRQEFhEVNW8z9lRxMRcRMRECFRMhMxczERUzMoV/JkgyzIS9/ XJ+//jvAEsDZwoNFWWkuASvigACQEQogIAIH40wLpHsFDh5W5CchuN4IGHICAlIBwmQ+FUo4OgXv lrQgomrtyxQ4QzSBZQnhhE6bokE8+mEQmL1QP079ercYnAMQjuWaQZY0dDnOGCnRKhUG/7pMmvZg KXyU5SesELHxyRs4NW+jl/QIlrRcylgeP07jlY5Ii3oRs8HtBFChUuGxqvIuOFBjWio9ds8Hr4RI ky1IKKOS3Ys8H9gKhQKXjoFCER05ICLImP1C0HjgqS8U+OmJKiNThQKXrYh96ioKpxtlNEYsIqUp IsiNSjcSVDKSZZVcAXqS2q4jyKFhV7YRF7uChUuuj9Ih65a0/VkZIi/DxyR82RU87NIetyKVtsky muPtFlq4GMrLq6KycNiBajM+qg6nIGlChUuGR1zIWvFdFj5zqftRzrRcNuDeb2ipssbc88eXVEvB SR41bFRtUTsigsY8KeTzXlxc0eMihISIky+iYJaEhejRnuqEcujJxIP5p8bEHBCRhTVsaNChnifr RS/p8bsjgRzajoL1EfH1JcLx3RKPf07hE/YEiDmieWT55IPIQs4NW+rafjINmG/mie8FL/xCba7y nj0Zin8AARUfGPBwzxL/RxOq4bFohl8iF20iQQI7OmuWdxpO4SNCNDOR+3Y5visqqQUNpsMM+B9i osxo37qevVHKSZT0Tsi4zaU5DdYhwbqWrREriIqrSeqoDKURKZRUjRIky1I+hL1ltKGhBVUSXE5I ECpcNCClEBWOj4hlY5PW+DhUuGJaOSvGL/xP9hQKXjwuzI62iGNFL/xyfIky1IqKMaRZs8HL/hQK XPsTAT0s0SJ0PpMQM4OMEGGFFEEvlM07YLCzJlZDwKdE/q3Kty30Bxher0KtrSOEQyWpVaXF+hg6 WpVaXFcPEqtSr0uKIeIc1KtS7qArDhUr0KtrC8MEKtSrELLtrAxX8tValYZJe9kyujo5cEnFV9tU BDLVSLV0cpC3Wqg0lKOvAAAA :{frm1 560, 852 sIAUDtWMkIAVD8hANJgBICRUqlvVTwi8T80ExbUNXwRNTIlEkEWIyESESEbERV3bzIlESrtyPD07 Ai//79/3nDkgLboIAB0I3FohIJuJICGIibTAoJAgoAEsAdcEChQcoZKEYHgTYn5oygG/kYcFegcI cgI7Z7E6vv5vXwFd1MYIE2hQIsHChSoFbtnXEeFeC7s3Ci9+FYj2xAZ7jSCwMWtArGGK6ZciMMBw 17wQgA3xwOS3Cix7XYn5GIC/P1otmM3AsPPnNa0YIUK9TnBFhd4vFAGtxgYM/FCc2EF+5HCBBWQ5 j12B+5znVIE6nXRjFJjVXCShA/qJHCkGUEyosiEAE4XN5YharY+8U+K86TwORHnjaQdyX4fx0jwF Dp587itWJrDir3EyLcD+Ww6yRRKWiIfx9x2bHakmMXce5xbSa4/BDDZzvvPAqV/6v97+c2sc5517 Oj5MF/Z5rz34atDxJ8cAqODKIUDQLE97xdCKh/paEQWMkmzzLgaQ/d/8BuRzt4L2evCIIQE9fhAr tAkSjhdwuBmItmjV9oLjnO0O7ky3UyzUIdLCq4A8FUYq94n0VQSgM3xA1zvwOo/CUh+HOC/aQ8RG VYkTPrqqs0Mkow5+KAggTgPGC8igUEIH8E+dWhxxCgDhFhBpT6KZcXdlAC+qqMEsqBKBsXdlCSri UE0OpLR0xYVWJYtqyQzxKj3rgqQQr6gYnfhA9t4gO0EKLiCOn8kC8UXfKhBAAAA= $LanguageId = 0409 $FileFlags# = 2 $DatFile

Global x%, y% Global ListItem LVIt Form F0 = "Listview-ColumnHeader", , , 406, 320 : BackColor = $C0C0C0 Text 25, 15, "ColumnHeader = Hidden" Text 25, 105, "ColumnHeader = nicht wählbar" Text 25, 195, "ColumnHeader mit Icon; Sortierung AUF/AB" MAKE_LISTVIEW_1 MAKE_LISTVIEW_2 MAKE_LISTVIEW_3 : LVICON(0, 0) For x = 1 To 20 : For y = 1 To 3 Set LVIt = LV(y).Add LVIt.AllText = Chr(x + 64) + ";" + Format(x, "00") + ";" + Format(21 - x, "00") Next y : Next x Do : Sleep : Until Me Is Nothing '##E# >Sub MAKE_LISTVIEW_1 'ColumnHeader = Hidden Ocx ListView LV(1) = , 20, 30, 360, 65 LV(1).Appearance = 1 : LV(1).TextBackColor = $80000018 : LV(1).BackColor = $80000018 LV(1).View = 3 : LV(1).FullRowSelect = 1 : LV(1).HideSelection = 0 LV(1).LabelEdit = 1 : LV(1).MultiSelect = 0 : LV(1).GridLines = 1 LV(1).ColumnHeaders.Add( , , "A").Width = 1680 LV(1).ColumnHeaders.Add( , , "B").Width = 1680 LV(1).ColumnHeaders.Add( , , "C").Width = 1680 LV(1).ColumnHeaders(2).Alignment = 1 LV(1).ColumnHeaders(3).Alignment = 2 Local Const LVM_FIRST As Long = &H1000 Local Const LVM_GETHEADER As Long = (LVM_FIRST + 31) Local Const HDS_HIDDEN As Long = &H8 Local head% = SendMessage(LV(1).hWnd, LVM_GETHEADER, 0, 0) ~SetWindowLong(head, GWL_STYLE, HDS_HIDDEN) 'Stil setzen >Sub MAKE_LISTVIEW_2 'ColumnHeader = nicht wählbar Ocx ListView LV(2) = , 20, 120, 360, 65 LV(2).Appearance = 1 : LV(2).TextBackColor = $80000018 : LV(2).BackColor = $80000018 LV(2).View = 3 : LV(2).FullRowSelect = 1 : LV(2).HideSelection = 0 LV(2).LabelEdit = 1 : LV(2).MultiSelect = 0 : LV(2).GridLines = 1 LV(2).ColumnHeaders.Add( , , "A").Width = 1680 LV(2).ColumnHeaders.Add( , , "B").Width = 1680 LV(2).ColumnHeaders.Add( , , "C").Width = 1680 LV(2).ColumnHeaders(2).Alignment = 1 LV(2).ColumnHeaders(3).Alignment = 2 Local Const LVM_FIRST As Long = &H1000 Local Const LVM_GETHEADER As Long = (LVM_FIRST + 31) Local Const HDS_HORZ = &H0 'alle Stile: 'Const HDS_HORZ = &H0 'Const HDS_BUTTONS = &H2 'Const HDS_HOTTRACK = &H4 'Const HDS_HIDDEN = &H8 'Const HDS_DRAGDROP = &H40 'Const HDS_FULLDRAG = &H80 Local head% = SendMessage(LV(2).hWnd, LVM_GETHEADER, 0, 0) ~SetWindowLong(head, GWL_STYLE, HDS_HORZ) 'Stil setzen >Sub MAKE_LISTVIEW_3 'ColumnHeader mit Icon 'ImageList für Icons oder Bitmap 'in IL werden alle Bilder auf die Maße des ersten Bildes gestretcht!! Ist Bildhöhe größer 'als Zeilenabstand des ListView, wird dieser auf Bildhöhe vergrößert, Schrifthöhe bleibt!! Ocx ImageList IL 'ImageList für Listview //wenn Icons verwendet werden .ColorFormat = 5 'or 9 or 17... 'es wird keine Maske gesetzt .Add , , LoadPicture(":up.ico") 'Nr 0 .Add , , LoadPicture(":down.ico") 'Nr 1 //wenn Bmp verwendet werden (kein .Colorformat=x nötig), aber: 'Fehler, wenn sich Systemfarbe ändert! '.Add , , LoadPicture(":up.bmp") 'Nr 0 '.Add , , LoadPicture(":down.bmp") 'Nr 1 '----------- Ocx ListView LV(3) = , 20, 210, 360, 65 LV(3).Appearance = 1 : LV(3).TextBackColor = $80000018 : LV(3).BackColor = $80000018 LV(3).View = 3 : LV(3).FullRowSelect = 1 : LV(3).HideSelection = 0 LV(3).LabelEdit = 1 : LV(3).MultiSelect = 0 : LV(3).GridLines = 1 LV(3).SmallIcons = IL 'sonst kein Icon im C-Header möglich. Aber: automatisch wird auch ' 'in der 1.Spalte Platz für ein Icon freigehalten!! LV(3).ColumnHeaders.Add( , , "A").Width = 1680 LV(3).ColumnHeaders.Add( , , "B").Width = 1680 LV(3).ColumnHeaders.Add( , , "C").Width = 1680 LV(3).ColumnHeaders(2).Alignment = 1 'Achtung! siehe unten LV(3).ColumnHeaders(3).Alignment = 2 'dto '---------- Global Const LVM_FIRST = &H1000 Global Const LVM_GETHEADER = (LVM_FIRST + 31) 'Global Const HDI_BITMAP = &H10 Global Const HDI_IMAGE = &H20 Global Const HDI_FORMAT = &H4 'Global Const HDI_TEXT = &H2 Global Const HDF_BITMAP_ON_RIGHT = &H1000 'Global Const HDF_BITMAP = &H2000 Global Const HDF_IMAGE = &H800 Global Const HDF_STRING = &H4000 Global Const HDM_FIRST = &H1200 Global Const HDM_SETITEM = (HDM_FIRST + 4) '---------- Type HD_ITEM -Int mask, cxy, pszText, hbm, cchTextMax, fmt, lParam, iImage, iOrder End Type Global HD As HD_ITEM '---------- HD.mask = HDI_IMAGE Or HDI_FORMAT >Sub LV_ColumnClick(Index%, ColumnHeader As ColumnHeader) 'Index < 3 kommt hier nicht vor, weil ColumnHeader nicht wählbar ist Static Int spalte, istsort = 1 LVICON(spalte, -1) 'Icon in alter Spalte löschen If spalte <> ColumnHeader.Index - 1 Then istsort = 1 Else _ istsort = Bchg(istsort, 16) 'gleiche Spalte: wechseln 1 u.$10001; sonst 1 spalte = ColumnHeader.Index - 1 'neue Spalte (0...) LV(3).Sort spalte, istsort 'Sortieren If istsort = 1 Then x = 0 Else x = 1 'Icon-Nummer LVICON(spalte, x) 'Icon darstellen >Sub LVICON(spalte%, ico_nr%) 'wenn ico_nr negativ: kein Icon setzen bzw. vorhandenes Icon löschen Local head% = SendMessage(LV(3).hWnd, LVM_GETHEADER, 0, 0) If ico_nr < 0 Then HD.fmt = HDF_STRING Else _ HD.fmt = HDF_STRING Or HDF_IMAGE Or HDF_BITMAP_ON_RIGHT : HD.iImage = ico_nr ~SendMessage(head, HDM_SETITEM, spalte, HD) 'bei HDF_BITMAP statt HDF_BITMAP_ON_RIGHT ist Icon links von Text 'nur HDF_STRING Or HDF_IMAGE gleichfalls 'nur HDF_IMAGE ist nur Icon, kein Text 'nur HDF_String ist nur Text, kein Ikon If spalte = 1 Then LV(3).ColumnHeaders(2).Alignment = 1 If spalte = 2 Then LV(3).ColumnHeaders(3).Alignment = 2 'Achtung: wenn LV.ColumnHeaders(x).Alignment>0 ist, 'muß dies erneut gesetzt werden, sonst Fehler in der Darstellung!!! $DatFile $FormVersion = 2 :up.bmp 101, 146B hBAUDtWMZBgkAQFAhBgAgATIa839/fxgPCPD88QEfIiEF/ks/Zyjs9/JAgkC+jOQ5MCCgoQgCMGM mhaiKkRI3LkuKvUNh1aTzuzHxvX8uKvUl1KE1/watnVrx3ZaYfvz0s4NAAA= :down.bmp 110, 146B qBAUDtWMiBgkA0FAkBgAiATIRG/dRYDG4fIixnp9M8/hfIU8C+ks/ZP+z/pAEKJpDUghhSaIEFAC hmlm1gYiKEjQsvQUq2bdmw22eV6e8jwvvwXq2bd2KH/490/XVun69cd17JNUddlNNN5AAAA= :up.ico 126, 182 6BAUDtWMyBgtA0GAHCgAhATMBG//RVDFT8IwPDTO/Do8hW5P4X4jxrw7HIEx5fChQebEBnI0igRE ZECORjIKJCBEpSa8monKEjQsNCRraNWlJUVV3s75j4bj4tq1YV2qvr+3UW2Oll17ZCT7oHARqrRJ w0zWhbPbNgiIAAAA :down.ico 129, 182 9BAUDtWM1BgtAAHAGCgAjAhETgRF1FT8IEX8ZaPD/D//OX5P4f0j/rwzz73/IMRkoyJmN7ICORYF BjI2IGAxjIOHCBEnzp0q4rL8iw7NCPprNalKstt79/yPC/3I8lu2oV6rFEW9IUl/6i11V/rMVddl NNNxQKiA0X9FifpRZAAA $LanguageId = 0407 $FileFlags# = 2 $DatFile

' InputBox Global a$ a$ = InputBox("Your Name", "Name Please", , 100, 100) Print a$ Delay 4

'##E# 'CaptionFlashing LoadForm form1 AutoRedraw = 1 Print "Please Hit STOP Before Closing." Do : Sleep : Until Me Is Nothing Sub cmdStartFlashing_Click() ' start the flashing by enabling the timer timer1.Interval = 1000 End Sub Sub cmdstopFlashing_Click() ' disable the timer to stop the flashing, and restore regular caption timer1.Interval = 0 ~FlashWindow(Me.hWnd, 0) End Sub Sub timer1_Timer() ' toggle the caption status ~FlashWindow(Me.hWnd, 1) End Sub ° °The second argument to FlashWindow must be zero to restore the standard state of the caption (that is, the activate state), while a non-zero value toggles from enabled to disabled state, and vice versa. Sub Command3_Click form1.Close $DatFile $FormVersion = 2 :{Form1 205, 252 JDAUDtWMBDA/AwLAHDgA/Ahp2TU8WIR/CkPNfNvlUEhExnGFjFTERQ0VhJhJ6VCeRERQMGvWfLvj IYQQIEkVbHJlhwfOE6ZnBRS93v1/da/5q/u/teG0wJEEYd7Zrfe/s5e+TeIECKCBGSCBGhQoEStU yx+3o7ZfBthgxaJ8XDBaXtjFbp0BrjQw8o6t9+8uIxhwinmzUSWOEerhAprWgilnWspKUWEecvv+ GnGK/140QYp5rs+aSXa4adcsfqWYbqoNHdZYIT4L6NAAAA== $DatFile

'##E# ' ListView5 original by AB -Antonio Barbosa ' Modified for data by Bryant ' 11 April 2001 Global a$, b$, c$, d$ LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load lv1.GridLines = True lv1.FullRowSelect = True lv1.TextBackColor = RGB(190, 190, 190) lv1.ForeColor = RGB(0, 0, 255) lv1.BackColor = RGB(190, 190, 190) lv1.View = 3 'ReportView Local c As Int °Local li As ListItem For c = 1 To 3 lv1.ColumnHeaders.Add , , "Header " + Str(c) Next frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub lv1_ItemClick(Item As ListItem) Local x As String x = Item.SubItems(0) ed0.Text = x x = Item.SubItems(1) ed1.Text = x x = Item.SubItems(2) ed2.Text = x EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdclear_Click lv1.Clear EndSub Sub cmdData_Click Restore While _Data Read a$, b$, c$ Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = a$ li.SubItems(1) = b$ li.SubItems(2) = c$ Wend Data Dale Bryant,Gfa16/32,Usa Data John Findlay,DirectX & gifLoad,UK Data Eberhard Funck,IMGSHOP32,Germany Data Joe Hurst,BBOX,Germany Data Antonia Barbosa,ListView,?? $DatFile $FormVersion = 2 :{frm1 374, 497 yFAUDtWMqFQ8BUWAqFgBzBhQ7T1b1jgIhVBJ5TT8WMo9YYCJBFYIVURMREiZRd2bzMUEBFo9Z/Kn SSiIvj//+4/XEbCQPwUAVKmgFUASACIhCAkoVASgAdcEChwVqJKEoH8G60qCDbu3tbMYBihwhYzj mf1jsRz5d5uvU1MYIE6SCheIEKh2VrFvhmxQM0pfG6sPD0BYNgKgVdEId9ZBSNQUUbfGUAiicGhU AXUrhOSPDWR4aoT7cK8H/04apknFGeimaQgM+qBrgcNEIcCjwP/QIsYhRELFoit4SLlnNGeCWj1P ksMEC8/8oYRZ4JMy5DICC8/8oYiYrodeGOy1n1wbAogruBzBJh/JPYAlT2OUfnf314agJOX3Ul2C /nXoINq9++DKDtn1XGvhUgJ3apjmagJ6i6CiiIKMGxxlsk3d/21ggmoS5GW3GDAIEcuWsSqGIAva oz60X4HT+pMe+qf8SaSs/9cU4xIYy7ZTYc4CPljBAAA= $LanguageId = 0409 $DatFile

Global gbCrLf = Chr$(13) & Chr$(10) Global x x = PrinterIsInstalled Function PrinterIsInstalled() As Boolean Dim dummy As String On Error Resume Next dummy = Printer.DeviceName If Err.Number Then MsgBox "No default printer installed." & gbCrLf & _ "To install and select a default printer, select the " & _ "Setting / Printers command in the Start menu, and then " & _ "double-click on the Add Printer icon.", 5 _ , "Printer Error" PrinterIsInstalled = False Else PrinterIsInstalled = True MsgBox "Printer Is Installed" End If End Function

' ListView5 original by AB -Antonio Barbosa ' Modified for disk data by Bryant ' 15 April 2001 ' NOTE :Run and Click on Write Data which will write a disk file ' named lvdata.dat ' Click Load Data to load the lvdata.dat file from disk ' The ListView will be populated from the lvdata.dat file Global a$, b$, c$, d$ LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load lv1.GridLines = True lv1.FullRowSelect = True lv1.TextBackColor = RGB(190, 190, 190) lv1.ForeColor = RGB(0, 0, 255) lv1.BackColor = RGB(190, 190, 190) lv1.View = 3 'ReportView Local c As Int °Local li As ListItem For c = 1 To 3 lv1.ColumnHeaders.Add , , "Header " + Str(c) Next frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdclear_Click lv1.Clear EndSub Sub cmdWriteData_Click Restore Close // Try Open "c:\gb32\lvdata.dat" for Output As # 2 While _Data Read a$, b$, c$ If Len(a$) < 25 a$ = a$ + Space$(25 - Len(a$)) EndIf If Len(b$) < 50 b$ = b$ + Space$(50 - Len(b$)) '##E# EndIf Print # 2, a$; ",", b$; ",", c$ Wend Close # 2 //Catch Data Dale Bryant,Gfa16/32,Usa Data John Findlay,DirectX & GifLoad,Uk Data Eberhard Funck,IMGSHOP32,Germany Data Joe Hurst,BBOX,Germany Data Antonia Barbosa,ListView,?? Data M. Weigand,Midi,Germany Data Mark Feaver,Midi,California Data Tom Record,Graphics,Oklahoma Data Dean Hodgon,Bookmark Project,Austraila Data Roshan Sharma,Telecommunications,Texas Data Russell Hayard,Progammer,UK Data Peter Harder,DAXACHART,Germany Data Anthony Watson,Mountain Software,USA Sub CommandLoad_Click Close # 2 Open "c:\gb32\lvdata.dat" for Input As # 2 While Not EOF(# 2) Input # 2, a$, b$, c$ Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = a$ li.SubItems(1) = b$ li.SubItems(2) = c$ Wend $DatFile $FormVersion = 2 :{frm1 409, 564 VGAUDtWMNGANCgYAWGgB0Bhph/U9IIREfcPNxbxE0Ey8YgTIRMREiIhMREREDFRpRZhN9gyExr1t J9O+/vk/f9NQmIAFFKogF0AQqyAkCgiANAUBgAWAAC0ySIECtjktQgeweoTNLOIiz+s5gGmhwifC VCfkoVJcuvypZMJQQI0lEC9QIUCpWKFfxk5QM0pfF6o8K4Gf5AcQU2RAdtJNMSKKUmHRDUIuyLcE AE7coD1m00wWoT9yS4PO5R5T5cUcwQUXCDgEc5gbAuFCsucF+5HChHN8iWLYFXxn0x5o5ghg7YeS 4zQIwfSmiHUEMEqwayHAC8nkpwC3kD5jj6XJdGOCIldOYFa5QgZk7gkwvFZmQoFtLUeP/29A0Byw cTEOPEF+vag4oK/9dy5QSBW2X5du9x7LcEIjxcpDETMGMG+jyeqbr0gUN6rp+w++9sHIkUWKv451 cABhAM2KuRWOwCb5QHeXeD/g5mY96jUV+4Y1/9+ZU8SFHn7n6g4QDJp0yw1988HpR93fjeAWJwyU XlqmqJQ90QFAAA== $LanguageId = 0409 $DatFile

' ListView5 original by AB -Antonio Barbosa ' Modified for disk data by Bryant ' 15 April 2001 ' NOTE :Run and Click on Write Data which will write a disk file ' named lvdata.dat ' Click Load Data to load the lvdata.dat file from disk ' The ListView will be populated from the lvdata.dat file Global a$, b$, c$, d$ LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load Global lvLastSorted As Int lvLastSorted = -1 lv1.GridLines = True lv1.FullRowSelect = True // lv1.TextBackColor = RGB(190, 190, 190) //lv1.ForeColor = RGB(0, 0, 255) //lv1.BackColor = RGB(190, 190, 190) lv1.View = 3 'ReportView lv1.ColumnHeaders.Add , , "Name" lv1.ColumnHeaders.Add , , "Type" lv1.ColumnHeaders.Add , , "Loc." frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdclear_Click lv1.Clear EndSub Sub cmdWriteData_Click Restore Close // Try Open "c:\gb32\lvdata.dat" for Output As # 2 While _Data Read a$, b$, c$ If Len(a$) < 25 a$ = a$ + Space$(25 - Len(a$)) EndIf If Len(b$) < 50 b$ = b$ + Space$(50 - Len(b$)) EndIf '##E# Print # 2, a$; ",", b$; ",", c$ Wend Close # 2 //Catch Data Dale Bryant,Gfa16/32,Usa Data John Findlay,DirectX & GifLoad,Uk Data Eberhard Funck,IMGSHOP32,Germany Data Joe Hurst,BBOX,Germany Data Antonia Barbosa,ListView,?? Data M. Weigand,Midi,Germany Data Mark Feaver,Midi,California Data Tom Record,Graphics,Oklahoma Data Dean Hodgon,Bookmark Project,Austraila Data Roshan Sharma,Telecommunications,Texas Data Russell Hayard,Progammer,UK Data Peter Harder,DAXACHART,Germany Data Anthony Watson,Mountain Software,USA Data G. Veichtlbauer,Various,Germany Data John Kanold,Solitare,Canada Data Bev Brown,GFADLL4,Canada Data Peter Harder,Various,Germany Sub CommandLoad_Click Close # 2 Open "c:\gb32\lvdata.dat" for Input As # 2 While Not EOF(# 2) Input # 2, a$, b$, c$ Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = a$ li.SubItems(1) = b$ li.SubItems(2) = c$ Wend Sub lv1_ColumnClick(Col As ColumnHeader) Try If Col.Index = lvLastSorted lv1.Sort Col.Index - 1, $10000 lvLastSorted = 0 Else lvLastSorted = Col.Index lv1.Sort Col.Index - 1, 1 EndIf Catch Message Err$ EndCatch EndSub $DatFile $FormVersion = 2 :{frm1 420, 564 gGAUDtWMYGANCMZAfGgB3Bht+T1b1jgERwW80EvFTNz8YgTIRMREWcxMBFhwRQWYTkzchMR4vW3m 07A+/rv/f9uBGSEpABYhCIIBNAkiEMpAoIADAVQIgRAgAtsEChw0RyVIQPIO0ZWNGERYnhygGihw ia3R3nUIFdn3fJMJLJQQI0lEC9QIUCppUqNDLlhWwKWGDdc+FYjtaQPoqOCAc6Sj80WxPjVEhHav sCHBMRuG6o9LYFijhOzPLh/2lHbptSe1YwQII1bAm4rG60HDBOfYI8zPECPaY10VgLyaPpj8qygh g1WtBkiewKCHDhA/LVKecGMEAK40IsYl3l9wlLDWomcodd18Llc4IwmcNoDd1QgYj6gkwvFVmwoF fL+nzn7ew6AXkOKCqHiC/fTQ4Iqde+CGDJF23fZlHPZdGOCcRZt0RjJ5DyC/NVPxxXSoK2QxEUOE vfzwDCS2KlZINrMAgQQ6YxKvagD8qhOC/QS4HQ30ifnUiaXXjqv3zNjLRwk3zgAkDTwJlWG+uZw4 kyq57zVPQrE4YqvtNtdhrnJgBAAA $LanguageId = 0409 $FileFlags# = 2 $DatFile

/******************************** ' TreeView v1 by AB ' 17 April 2001 /******************************** LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load tv1.Style = 7 tv1.ImageList = iml1 Dim nodX As Node 'add some test items Set nodX = tv1.Nodes.Add( , , "B", "My Book", 4) Set nodX = tv1.Nodes.Add("B", tvwChild, "P1", "Part 1", 1) Set nodX = tv1.Nodes.Add("B", tvwChild, "P2", "Part 2", 1) Set nodX = tv1.Nodes.Add("B", tvwChild, "P3", "Part 3", 1) nodX.EnsureVisible Set nodX = tv1.Nodes.Add("P1", tvwChild, "C11", "Chapter 1", 2) Set nodX = tv1.Nodes.Add("P1", tvwChild, "C12", "Chapter 2", 2) nodX.EnsureVisible Set nodX = tv1.Nodes.Add("C11", tvwChild, "C111", "§1", 3) Set nodX = tv1.Nodes.Add("C11", tvwChild, "C112", "§2", 3) Set nodX = tv1.Nodes.Add("P2", tvwChild, "C21", "Chapter 1", 2) nodX.EnsureVisible frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub tv1_Collapse(Node As Node) ed1.Text = "tv1_Collapse " + Node.Key EndSub Sub tv1_Expand(Node As Node) ed1.Text = "tv1_Expand " + Node.Key EndSub Sub tv1_NodeClick(Node As Node) If Node Is Nothing Then Exit Sub Trace Node.FullPath Local x As String x = Node.FullPath ed1.Text = Node.Key + " : " + x EndSub $DatFile $FormVersion = 2 :{2} 393, 9830 FGAUDtWM9FgZmgXADGgB+BhQZUhIiJUEhi/8/9/zSUTIikSE0EiEVETERcSEjYq/HxfWRG7E37Xi jojv//LBiICEWAhAASCMgwVCwYbJJgaBkXEgHBoANLMhDoFCWoi1KV8GoAwnHgqMECHxjaL2aLBz hQIGCh///vpWKEShQoEGuAQTAMASpcEeCHhYUXFEl/YcJq44/3tetfCrtguPcUhyQJoZLXkFa7sr h/2OkHPxD1OphO4c0R3VnotoyozOCyZV5UPN05NtxMKZLlBZHbjdcpqjmvOgk2R4SHjlOy00hmnO Y80RduzbKTrTcqzQUXOjOPHdSu6w7rDJh90QnASOJMui21OHZrHW7s00Ngh1Nbf40IiM22jdU5rD RFvmgQbf7Fpo4Dl2J5qtn7wymf4iYgN4WvYTYq2a0b6CmDKDlQ5KXoUOxnlQotDTRqNCqQPt0W4/ fPD4WIc/z+9aplmJfylbIc/+dccS+EzYpapw+9aZY+e+KHFXbB+RDVvV9jpu/hOnHAAA :{frm1 223 EAAAAAAAAAAAAAAYuWEAANYR5AQFUJXZlZValdHIilHIBJEASUKAAQYTTByUoVGbsBCRsdGAAAAA IAAAA+AAAAIAAAQAAcAAACAAj1GZfFVdpRHADAAQ7VEAAE2QAAUoEBAgZPEEAEYU1lGdAAAAAAAA AEQA0ZXMAgBAAA/QAAANDBA8SVEAwETRJAQhAAAAAAAAp1GbxAQHAA4dFFAAwREAAA/QAAA8DRAA AIQZkFDALAAg3PEAQXURAACUFBAgOOUHAE4/AAAAFAAAACAAAAAAAAAA+////VGZxAAAAA== $LanguageId = 0409 $DatFile

LoadForm form1 Do Sleep Until Me Is Nothing Sub form1_MouseDown(Button&, Shift&, X!, Y!) If Button = 2 Then Label1.BackColor = RGB(225, 0, 0) Label1.FontItalic = "ariel" Label1.FontBold = "ariel" Label1.Caption = "Yes, the label caption has been changed" '##E# End If End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 177, 188 tCAUDtWMlCAvAAKA8CQA3AxLwTTEvFPCEt/EfNvV0ERMR0vWSQiFF+DguFlwSESET/p9LxzJGIER 4nR4nRAejoXQBGmuiOhifECwkKp2Uuksc1YGREGR8Qi4jImAR8RcqiitJSngQE4z55sBP6Z8wPKh +yVzOiIiImhVD0yzJYEB5bCaZgWejg9RK0ppBlqddeaExWqmFKVXxCnadUbToWFrGolXYExrExHR EREBAAAA $DatFile

' RichTextMakeBold ' Change file path to suit Global filename$ = "c:\gfw\callpdf.rtf" LoadForm frm1 Center '* both work RichTextBox1.LoadFile filename$, 0 //'0=load as rtf-formatted text,1=load as no formatted text 'rtf1.Text = "This is a test" Do Sleep Until Me Is Nothing Sub Command1_Click() With RichTextBox1 .SelBold = True .SelUnderline = True .SetFocus End With End Sub Sub Command4_Click() With RichTextBox1 '##E# .SelBold = False .SelUnderline = False .SetFocus End With End Sub Sub Command2_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 312, 365 0EAUDtWMsEQbBcSAxEgBcBhpvAPVvV6EfM0TTe+UTEGHyMhISISEUIKFTERERITFhIsE+Iqx3r13 yONA2pt4gHQBIgCgCEAECWAEAFwxRIECthUMEwkbCBn8raDqu6fjMuZFW4GCHAYLu9Njj4Wm3Jrm vkCFhwumQYPEClQqlS2YcSiGlMxb9diSDmCBXThdANFoLmQQOcqLh/m5ghFnp0QIEEM1ff/mHl2s kOAzUJQuGwCa83kkkIL8rvvOG5MPm5ddOnNBlSpYyZq4NME2NWfEKId8E+RQn373asx0lwU66DF5 VpBHhdd1STUSlc21Qg7EGC/b51Mp74W/NHhAvo91F1hoHQkKxp1TSwI2YmcokzVUPQuv7zRK0yxl vHIJoRJcoCPGsGGCyR0DSGM4J8XJe+QNAAAA $DatFile

'##E# ' ListBoxLoadTextFile Global f LoadForm form1 Do : Sleep : Until Me Is Nothing Sub command1_Click() Dim FileName As String Dim lne$ FileName = "C:\gb32\wavefix3.txt" f = FreeFile Open FileName for Input As # f While Not EOF(# f) Line Input # f, lne$ List1.AddItem lne$ Wend End Sub $DatFile $FormVersion = 2 :{Form1 153, 160 VCAUDtWMNCAoAgIAgCQAyAxLwTU4+jAFSs/EvRRMUETEjKWQ7KPNjFl82kcKfavWH+t4CREYuIwc RANjoTOBDRbVrQiaECw2abX9a9sNFjICnIeER8REToEfEsM19tCCRQ7mgLpg8mRA+kCmOR8GR8RE REjBPZV12VzKAEBkbKQZEKZ8YJRJQySu1KceE9LUmA9iIiIiZAAA $DatFile

'lets do combobox 'OpenW 1 Local msg$, title$, retval$ Local fs$ LoadForm form1 Center Do : Sleep : Until Me Is Nothing Sub form1_Load combo1.AddItem "John Findlay" combo1.AddItem "Joe Hurst" combo1.AddItem "Engelbert van Loock" combo1.AddItem "Eberhard Funck" combo1.AddItem "Bev Brown" combo1.AddItem "Tom Record" combo1.AddItem "Karl-Werner Rieger" combo1.AddItem "Sjouke Hamstra" '##E# combo1.AddItem "Ron Parker" combo1.AddItem "Brent Deck" combo1.AddItem "Patrick Battig" combo1.AddItem "Uli Stemmeler" End Sub Sub cmd1_Click form1.Close CloseW 1 End Sub Sub combo1_Click() Dim strSel As String strSel = combo1.Text Combo2.Text = strSel Combo2.AddItem strSel Label1.Caption = "Drop down state" ~SendMessage(Combo2.hWnd, CB_SHOWDROPDOWN, True, 0) Label1.Caption = "ComboBox2" End Sub $DatFile $FormVersion = 2 :{Form1 313, 349 1EAUDtWMtEQXBgSAvEgBcBhpvAPNybFhWQ/EPRfNukhEELhEyMRQxEkMiJhECLydiMrISUUU586I PjvD/DuAivtTCQDCgIIhCAyAQgABBACBDDhQI0MksFCICT5QYMbNoiBr3rwD3QgJG+ifjkoF/6s4 woJMJRSI87JE+DhQJkapkqz5X/zXhjQAJ1gY0sFc7NH+xS9JQspMo4xYTaylozXCXBDhI1twtzcA Mk3C/4pOFIm5xZfxXyBJ5daoYdPEKlaTfSi2wR4nSuE4uFoXnqaSms35tfFsECwpWC0NHIDkc4HQ VEEgSTXhN7JIFSm4jjQIPeSJqev/G/6r9z9OhoaSxlXFXR9cWXFdMcDjo95nWSm2QIAhR/91rAAC h7cJIfL4WaOEur6CEX8NYemXUruHBNQUGEAAAA== $LanguageId = 0409 $DatFile

Window Messages Note; Some WM_MESSAGES can only be responded to using CallBacks WM_Example ( * ) Most commonly used WM_ACTIVATE Indicates a change in the activation state WM_ACTIVATEAPP Notifies applications when a new task is activated WM_ASKCBFORMATNAME Retrieves the name of the clipboard format WM_CANCELMODE Notifies a window to cancel internal modes WM_CHANGECBCHAIN Notifies clipboard viewer of removal from chain WM_CHAR ( * ) Passes keyboard events to focus window WM_CHARTOITEM Provides list-box keystrokes to owner window WM_CHILDACTIVATE Notifies a child window of activation WM_CLEAR Clears an edit control or combo box WM_CLOSE ( * ) Signals a window or application to terminate WM_COMMAND ( * ) Specifies a command message WM_COMPACTING Indicates a low memory condition WM_COMPAREITEM Determines position of combo-box or list-box item WM_COPY Copies a selection to the clipboard WM_CREATE ( * ) Indicates that a window is being created WM_CTLCOLOR Indicates that a control is about to be drawn WM_CUT Deletes a selection and copies it to the clipboard WM_DEADCHAR Indicates when a dead key is pressed WM_DELETEITEM Indicates owner-drawn item or control is altered WM_DESTROY ( * ) Indicates window is about to be destroyed WM_DESTROYCLIPBOARD Notifies owner when clipboard is emptied WM_DEVMODECHANGE Indicates when device-mode settings are changed WM_DRAWCLIPBOARD Indicates when clipboard contents are changed WM_DRAWITEM Indicates when owner-drawn control or menu changes WM_DROPFILES Indicates when a file is dropped WM_ENABLE Indicates when enable state of window is changing WM_ENDSESSION Indicates whether the Windows session is ending WM_ENTERIDLE Indicates a modal dialog box or menu is idle WM_ERASEBKGND Indicates when background of window needs erasing WM_FONTCHANGE Indicates a change in the font-resource pool WM_GETDLGCODE Allows processing of control input WM_GETFONT Retrieves the font that a control is using WM_GETMINMAXINFO Retrieves minimum and maximum sizing information WM_GETTEXT Copies the text that corresponds to a window WM_GETTEXTLENGTH Determines length of text associated with a window WM_HSCROLL ( * ) Indicates a click in a horizontal scroll bar WM_HSCROLLCLIPBOARD Prompts owner to scroll clipboard contents WM_ICONERASEBKGND Notifies minimized window to fill icon background WM_INITDIALOG Initializes a dialog box WM_INITMENU Indicates when a menu is about to become active WM_INITMENUPOPUP Indicates when a pop-up menu is being created WM_KEYDOWN ( * ) Indicates when a nonsystem key is pressed WM_KEYUP Indicates when a nonsystem key is released WM_KILLFOCUS Indicates window is about to lose input focus WM_LBUTTONDBLCLK Indicates double-click of left mouse button WM_LBUTTONDOWN ( * ) Indicates when left mouse button is pressed WM_LBUTTONUP Indicates when left mouse button is released WM_MBUTTONDBLCLK Indicates double-click of middle mouse button WM_MBUTTONDOWN Indicates when middle mouse button is pressed WM_MBUTTONUP Indicates when middle mouse button is released WM_MDIACTIVATE Activates a new MDI child window WM_MDICASCADE Arranges MDI child windows in a cascade format WM_MDICREATE Prompts an MDI client to create a child window WM_MDIDESTROY Closes an MDI child window WM_MDIGETACTIVE Retrieves data about the active MDI child window WM_MDIICONARRANGE Arranges minimized MDI child windows WM_MDIMAXIMIZE Maximizes an MDI child window WM_MDINEXT Activates the next MDI child window WM_MDIRESTORE Prompts an MDI client to restore a child window WM_MDISETMENU Replaces the menu of a MDI frame window WM_MDITILE Arranges MDI child windows in a tiled format WM_MEASUREITEM Requests dimensions of owner-drawn control WM_MENUCHAR Indicates when unknown menu mnemonic is pressed WM_MENUSELECT Indicates when a menu item is selected WM_MOUSEACTIVATE Indicates a mouse click in an inactive window WM_MOUSEMOVE Indicates mouse-cursor movement WM_MOVE ( * ) Indicates the position of a window has changed WM_NCACTIVATE Changes the active state of a nonclient area WM_NCCALCSIZE Calculates the size of a window's client area WM_NCCREATE Indicates a nonclient area is being created WM_NCDESTROY Indicates when nonclient area is being destroyed WM_NCHITTEST Indicates mouse-cursor movement WM_NCLBUTTONDBLCLK Indicates non-client left button double-click WM_NCLBUTTONDOWN Indicates left button pressed in nonclient area WM_NCLBUTTONUP Indicates left button released in nonclient area WM_NCMBUTTONDBLCLK Indicates middle button nonclient double-click WM_NCMBUTTONDOWN Indicates middle button pressed in nonclient area WM_NCMBUTTONUP Indicates middle button released in nonclient area WM_NCMOUSEMOVE Indicates mouse-cursor movement in nonclient area WM_NCPAINT Indicates a window's frame needs painting WM_NCRBUTTONDBLCLK Indicates right button nonclient double-click WM_NCRBUTTONDOWN Indicates right button pressed in nonclient area WM_NCRBUTTONUP Indicates right button released in nonclient area WM_NEXTDLGCTL Sets the focus to a different dialog box control WM_PAINT ( * ) Indicates a window frame needs painting WM_PAINTCLIPBOARD Paints the specified portion of the window WM_PALETTECHANGED Indicates focus-window has realized its palette WM_PARENTNOTIFY Notifies parent of child-window activity WM_PASTE Inserts clipboard data into an edit control WM_QUERYDRAGICON Requests a cursor handle for a minimized window WM_QUERYENDSESSION Requests that the Windows session be ended WM_QUERYNEWPALETTE Allows a window to realize its logical palette WM_QUERYOPEN Requests that a minimized window be restored WM_QUIT Requests that an application be terminated WM_RBUTTONDBLCLK Indicates a double-click of right mouse button WM_RBUTTONDOWN Indicates when the right mouse button is pressed WM_RBUTTONUP Indicates when the right mouse button is released WM_RENDERALLFORMATS Notifies owner to render all clipboard formats WM_RENDERFORMAT Notifies owner to render particular clipboard data WM_SETCURSOR Displays the appropriate mouse cursor shape WM_SETFOCUS ( * ) Indicates when a window has gained input focus WM_SETFONT Sets the font for a control WM_SETREDRAW Allows or prevents redrawing in a window WM_SETTEXT ( * ) Sets the text of a window WM_SHOWWINDOW Indicates a window is about to be hidden or shown WM_SIZE ( * ) Indicates a change in window size WM_SIZECLIPBOARD Indicates a change in clipboard size WM_SPOOLERSTATUS Indicates when a print job is added or removed WM_SYSCHAR Indicates when a System-menu key is pressed WM_SYSCOLORCHANGE Indicates when a system color setting is changed WM_SYSCOMMAND Indicates when a System-command is requested WM_SYSDEADCHAR Indicates when a system dead key is pressed WM_SYSKEYDOWN Indicates that ALT plus another key was pressed WM_SYSKEYUP Indicates that ALT plus another key was released WM_TIMECHANGE Indicates that the system time has been set WM_TIMER ( * ) Indicates timeout interval for a timer has elapsed WM_UNDO Undoes the last operation in an edit control WM_USER Indicates a range of message values WM_VKEYTOITEM Provides list-box keystrokes to owner window WM_VSCROLL ( * ) Indicates a click in a vertical scroll bar WM_VSCROLLCLIPBOARD Prompts the owner to scroll clipboard contents WM_WININICHANGE Notifies applications of change to WIN.INI

'##E# 'LBMouseOver °Add a list box and a text box to form1. Declare Function SendMessage Lib _ "user32" Alias "SendMessageA" (ByVal hwnd _ As Long, ByVal wMsg As Long, ByVal wParam _ As Long, lParam As Any) As Long Const LB_ITEMFROMPOINT = &H1A9 LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Load() With List1 .AddItem "Visit The" .AddItem "Dale Bryant Web Site At" .AddItem "http://www.gfawhelp.gfa.net" .AddItem "Home Of GFAWHELP" End With End Sub Sub List1_MouseMove(Button&, Shift&, X!, Y!) Dim lXPoint As Long Dim lYPoint As Long Dim lIndex As Long If Button = 0 Then ' if no button was pressed lXPoint = Word(X / Screen.TwipsPerPixelX) lYPoint = Word(Y / Screen.TwipsPerPixelY) With List1 ' get selected item from list lIndex = SendMessage(.hWnd, _ LB_ITEMFROMPOINT, 0, ByVal _ ((lYPoint * 65536) + lXPoint)) ' show tip or clear last one If (lIndex >= 0) And _ (lIndex <= .ListCount) Then .ToolTipText = .List(lIndex) Text1.Text = .List(lIndex) Else .ToolTipText = "" End If End With End If End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{form1 225, 231 dDAUDtWMVDw5AANAUDgBJBhpvAPRxbFxzPxTjavlUETEEKhMREiUhYiJSFhiXISUdIi0hNiQvW/S T+OE/DOAAQAAApYoEC6qNDJjhAAyB6kyODq8/O+EWIGCDXbxN5nzxt+7n/QIEcEC/iCh/QIUCpWK Zydf/+JoJEYOVC0tGIbPHC8qSDsaKDKWE2sksF4TKEuWp0jXrMm7R1U6vxv7+4cU7ZU838t119Df NJCeCeWMnSMrhfC5AXq1lAtGHXeDJZlhp1xR5n6fCGCBi1yv3c4QVOEYPdEYl3/uNxoUKAAA $DatFile

°Place a Common Dialog control, CommonDialog1, on the form. °Place a button, Command1, on the form. In the click event add the following code: 'Place a button, Command2 wit Caption 'Exit ' Shows File Open Dialog ' Runs GB32 program selected LoadForm form1 Do Sleep Until Me Is Nothing Sub Command1_Click() CommonDialog1.ShowOpen 'MsgBox "You chose: " & CommonDialog1.FileName Chain CommonDialog1.FileName End Sub Sub Command2_Click form1.Close Sub form1_Load Label1.Caption = "File Opem Common Dialog" Command2.Caption = "Exit Prog" CommonDialog1.FileName = "c:\gb32\*.g32" $DatFile $FormVersion = 2 :{Form1 232, 252 kDAUDtWMcDA/AcNAhDgBKBhETGPRfQ84PNi7ENSMeIzECNhEhEkF4IjolRFlRIhZB1favWS9MMnJ /DHACBAAgEQrFChQOVTRZsuChvLjBR6vJ8E8QLEaAY7Y77lxx249p+8SUhiQY3SIsHChSImjRNTz EIM/2P/Wn9/EEHCIoXC0nC5UtFMkdmXi2+et/EShAteJwuHOI3D78nUF+3GXHlT5Q7564ApSpMIM OoMkC7qvKBfXBmm7hA7pa4/izJFT6iRvfuHXfCOCBT9SWT1YMF25OtE+XdXdJiYsIhaIEteX5NIt 0EAAAA== $LanguageId = 0409 $DatFile

'TextBoxSave Global n, i Global s$ = "Watch The Text Scroll" Global gbCrLf = Chr$(13) + Chr$(10) LoadForm frm1 Do : Sleep : Until Me Is Nothing Sub Command1_Click Dim iFile As Integer Local filepath = "c:\gb32\wavefix.txt" Local aa iFile = FreeFile Open filepath for Input As # 2 While Not EOF(# 2) Input # 2, aa Text1.Text = Text1.Text & aa Wend ErrorHandler: Close # 2 Text1.Text = Text1.Text + "Last Entry" Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 DoEvents Label1.Caption = "Lines " & Text1.LineCount - 1 ' Label2.Caption = Text1.LineCount - 1 Label2.Caption = "File Loaded" Sub Command2_Click frm1.Close Sub Command3_Click Label2.Caption = "Saving File" Dim iFile As Integer 'Lets give it a different file name to be sure Local filepath = "c:\gb32\wavefix2.txt" iFile = FreeFile Open filepath for Output As # iFile Print # iFile, Text1.Text Close # 3 ' SaveFileFromTB = True ErrorHandler: Close # iFile 'By All My Programming Friends $DatFile $FormVersion = 2 :{frm1 342, 410 SFAUDtWMKFgmBUUAPFgBmBBJa8EFS00k/EPNfNOdyffEkIxMkESEiKRISESEIFhieEiEkESE0rQ9 Lx/DC417XjgJGCSAABBGBLECgACSEEwAACcSQIEI/FPaKDB40Dhzu0gHG8ItF0QOEaYY8a8cm414 KPOMChQQRIsbJE2DhQJ0it2j9VqM3CAIsDhcIgqvgZc0D0hV2VALRnhkGfhhozC4ujxmswHLSkOn JsFOC746LAMT9QgdOEElfC/yZdSICiquFvtri8T9rvbBHB66yhAf1Bpb9Q4+TY4HGnM9T5yOl1r4 WrcN6nHr33JANUvDDVztk1gjQgm7Qgt7KzWCILdXhf5cmXJOZLNUC7PIqVsGOCoBB9K3CywUlbaJ 83pyZCPhHbNJaDHhA/cJIqH4CmcY3Y03x4JSWnAlgKUaHoIXCoLHoJOit0nqw/r+FoNBpUxwAAAA $LanguageId = 0409 $FileFlags# = 2 $DatFile

'TextBoxAdd ' TextBpx Multiline must be set to True '##E# Global gbCrLf = Chr$(13) & Chr$(10) LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Load Label1.Caption = "Adding Data To A Text Box" Local a While _Data Read a Text1.Text = Text1.Text & a & gbCrLf Wend Data Findlay,Bryant,Brown,Weigand Data Funck,Hurst Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 184, 206 0CAUDtWMsCgzAcKAODQA3AxPxTTEvFPCEdxLwXzbFNRQClvWSIiIoQhi0TcUiLSGD/p9Kj3/wdgQ EhfGhfGB4NiehFcY6aWBG/IEwZJZ1qYls0c9YGREGR8KR8RETwI+IAqZLXBlIQfTA/io34pnkC9I iAREfERERM45GRExB10sVRWBhI6deWbEUz4JfOh+a7JHREREzQrJqJWBkI4lTER4gajn9BK0FJKW hREvSEfERERIAAAAAA== $DatFile

'RefreshDeskTop ~InvalidateRect(0, 0, 0)

'Choose Dim Choice Dim strMonth As String Do Choice = Val(InputBox("Enter a Number (1-12):")) If Choice + 0 = 0 Then Exit Do strMonth = Choose(Choice, "Jan", "Feb", "Mar", "Apr", _ "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") MsgBox strMonth Loop

' LVSetGridLines ' Setting Grid Lines In A ListView Public Const LVM_FIRST = &H1000 Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54) Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55) Public Const LVS_EX_FULLROWSELECT = &H20 Public Const LVS_EX_GRIDLINES = &H1 LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Load Dim itmx As ListItem Dim colx As ColumnHeader 'Add some columns Set colx = Listview1.ColumnHeaders.Add( , , "Filename") Set colx = Listview1.ColumnHeaders.Add( , , "Type") Set colx = Listview1.ColumnHeaders.Add( , , "Size") Set colx = Listview1.ColumnHeaders.Add( , , "Date") 'Add an item. The text here is always the 'First Column (Index 0) Set itmx = Listview1.ListItems.Add( , , "Abstract.exe", 1, 1) itmx.SubItems(1) = "Program File" itmx.SubItems(2) = "5 KB" itmx.SubItems(3) = "10/10/1999" Set itmx = Listview1.ListItems.Add( , , "Bcopy4.exe", 1, 1) 'Here is how we access each of the columns itmx.SubItems(1) = "Program File" itmx.SubItems(2) = "15 KB" itmx.SubItems(3) = "10/10/1999" Set itmx = Listview1.ListItems.Add( , , "Stripper.exe", 1, 1) 'Here is how we access each of the columns itmx.SubItems(1) = "Program File" itmx.SubItems(2) = "15 KB" itmx.SubItems(3) = "10/10/1999" Set itmx = Listview1.ListItems.Add( , , "Curmania", 1, 1) 'Here is how we access each of the columns itmx.SubItems(1) = "Program File" itmx.SubItems(2) = "11KB" itmx.SubItems(3) = "02/10/2000" Set itmx = Listview1.ListItems.Add( , , "Phone", 1, 1) 'Here is how we access each of the columns itmx.SubItems(1) = "Program File" itmx.SubItems(2) = "21KB" itmx.SubItems(3) = "02/10/2000" 'Set the listview to report Listview1.View = 3 //lvwReport Sub Command1_Click form1.Close Sub chkGridLines_Click() Dim state As Long 'state will be true when the checkbox 'style is 1 (checked) or False when 'unchecked state = chkGridLines.Value = 1 'set the new listview style ~SendMessage(Listview1.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_GRIDLINES, state) End Sub $DatFile $FormVersion = 2 :{form1 203, 210 HDAUDtWM/Cg0AoLA+CgAHBhp/EPVvlPCEphsPBT814EGUMiNRQSFhUxRzhVFsghITMVERkS+aQL9 sSvXLMMEChQTQSVIwkdNEWr+CTq3njhHihwg1zrz17/rz39s6ms0xRI0lEC9QIUCpWKJSa+3Pj8L lYYJEo+VC0VG2IXDMVUdEYZnRUj3Ur8pfee92cMII01WLdd1wGrxmwUxSgUlT2/kskpiY3ydunNL Nf/+HMECeGLBb1wGvxQn7nrApmqw1jJLEmotYMEAAAA= $LanguageId = 0409 $DatFile

' FormDrawIcon ' By J. Findlay & Dale Bryant 'Create a new project, and add this code to Form1 Const DI_MASK = &H1 Const DI_IMAGE = &H2 '##E# Const DI_NORMAL = DI_MASK Or DI_IMAGE LoadForm form1 Label1.Caption = "Drawing Icons On A Form" Do : Sleep : Until Me Is Nothing Sub form1_Paint() Global hIcon1, hIcon2, hIcon3, hIcon4, hIcon5 hIcon1 = LoadIcon(Null, IDI_APPLICATION) hIcon2 = LoadIcon(Null, IDI_ASTERISK) hIcon3 = LoadIcon(Null, IDI_EXCLAMATION) hIcon4 = LoadIcon(Null, IDI_HAND) hIcon5 = LoadIcon(Null, IDI_QUESTION) Dim mIcon As Long 'Extract the associated icon // mIcon = ExtractAssociatedIcon(App.hInstance, "C:\Autoexec.bat", 2) 'Draw the icon on the form ~DrawIcon(Me.hDC, 10, 40, hIcon1) ~DrawIcon(Me.hDC, 50, 40, hIcon2) ~DrawIcon(Me.hDC, 90, 40, hIcon3) ~DrawIcon(Me.hDC, 130, 40, hIcon4) ~DrawIcon(Me.hDC, 170, 40, hIcon5) //DrawIconEx(Me.hDC, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL) 'remove the icon from the memory ~DestroyIcon(hIcon1) ~DestroyIcon(hIcon2) ~DestroyIcon(hIcon3) ~DestroyIcon(hIcon4) ~DestroyIcon(hIcon5) End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 165, 167 hCAUDtWMZCwpAQJAnCQA1AxLwTj8W0PCEd/EPRfNvVxQyE+r1/gEkcjEn1PJXIxbSEThT8Ir6v07 BIERofRofRQOjYTUBGPXTngieEC8sKrtlLLNXRvIiwIiXJiPiYCExHBuFoGUngREckmwnV4vZEsP Shtk7iVsZWwIq2yVYExrExHRERECAOVTztR6EEinWOPoMQDWKC4HkwO5KSNiIiImBAAA $LanguageId = 0409 $DatFile

/************************************* /* Small demo of ToolBar and StatusBar /* by Antonio Barbosa /* 01 May 2001 '##E# /************************************* init Do GetEvent Until Me Is Nothing Proc init OpenW 1 TitleW 1, "Demo of ToolBar and StatusBar" Ocx ImageList iml1 ' Create ImageList with icons for buttons .ListImages.Add , "Image1" , LoadPicture(":up") .ListImages.Add , "Image2" , LoadPicture(":down") .ListImages.Add , "Image3" , LoadPicture(":left") .ListImages.Add , "Image4" , LoadPicture(":right") Ocx ToolBar tb1 ' Create ToolBar tb1.ImageList = iml1 ' Associate the ImageList to the Toolbar ~tb1.Buttons.Add( ,"MyButton #1" , , 0 , 1) ~tb1.Buttons.Add( ,"MyButton #2" , , 0 , 2) ~tb1.Buttons.Add( ,"Sep" , , 3 , 0) ' Separator ~tb1.Buttons.Add( ,"MyButton #3" , , 0 , 3) ~tb1.Buttons.Add( ,"MyButton #4" , , 0 , 4) tb1.Buttons(3).Width = 30 Ocx ComboBox cb1 = , 200, 4, 100 , 10 ' Add a simple ComboBox Local n% For n = 0 To 9 ' Add some lines to the Combo cb1.AddItem "Line # " + Str(n) Next cb1.ListIndex = 0 ' Shows the first line Ocx StatusBar sb1 ' Create a StatusBar, and add some Panels sb1.Panels.Add , , , 0 sb1.Panels.Add , , , 0 sb1.Panels.Add , , , 0 sb1.Panels.Add , , "Caps", 3 ' 3: Shows state of CapsLock sb1.Panels.Add , , "Num" , 4 ' 4: Shows state of NumLock sb1.Panels.Add , , "Ins" , 6 ' 6: Shows state of Insert/Overwrite sb1.Panels.Add , , "c" , 7 ' 7: Shows Date:Time sb1.Panels(3).AutoSize = 1 sb1.Panels(7).AutoSize = 1 ' Add some help to the fields of StatusBar sb1.Panels(1).ToolTipText = "Message" sb1.Panels(2).ToolTipText = "Index" sb1.Panels(3).ToolTipText = "Text" sb1.Panels(4).ToolTipText = "CapsLock" sb1.Panels(5).ToolTipText = "NumLock" sb1.Panels(6).ToolTipText = "Insert" sb1.Panels(7).ToolTipText = "Date:Time" 'Avoid the anoying inicial hiding ~SetWindowPos(Win(1), HWND_TOPMOST, 100, 100, 500, 300, 0) EndProc Sub cb1_Click sb1.Panel(1).Text = "cb_Click" sb1.Panel(2).Text = cb1.ListIndex sb1.Panel(3).Text = cb1.Text End Sub Sub tb1_ButtonClick(Btn As Button) sb1.Panel(1).Text = "tb_Click" sb1.Panel(2).Text = Btn.Index sb1.Panel(3).Text = Btn.Key End Sub $DatFile $FormVersion = 2 :DOWN 142, 318 KCAUDtWMCCgPB0HAbCgApAhETGWFVEyERo/8PCPD8/vcFSRhy+3w1/ASCkSRMxE7uRERwZigRn71 9gJa140gE2anW9V01FyRI3Ghs3tGryelcYb3kK/I8bjw37WjVZvW6dtMLTUjjunworrZBwRXXzaT PEPIKfJICzs2LVYFBQ3I4pGBOrIolvIh/GAAAA== :LEFT 144, 318 MCAUDtWMECgPB8HAdCgAnAhEcY//VEUEyERE5jwzArfoRhyq/RPSf+y3//sAKWRMxEZmRERAZiwd Vyb3hRsyx5RI09OvqrYrLsjweNCbxLNSn8K7QXfxUfE/aEv4lGpTerVzRztUBFSmX4LKESmX43ng KCXKNr1kkalnCAYR8oi4ljAncE0MvVzzdlbIDAAA :RIGHT 144, 318 MCAUDtWMECgPB8HAdCgAoAhE5EjFENhEB+z/I8Mw/zjM1HaE0Fc80+X42/tRGxETs7GREBoJCv2Y vuHMRbGnEjQW6kKxK66C3Icbhw16WhVZvyNklbUlfE+tQ4bdrwqsXniqOf5BLs1qPD7PD7P9QoBR kEBRWKW40KjJCe+Ro3lRRLCd1I0N/rdeKicAAAAA :UP 139, 318 HCAUDtWM/BgPBoHAaCgAoATMZIUUyEhMj+z/3HPD8/vwmIiht/YF/DIJnVEChQkZGREBHhIYsXW7 KgJWzo8oE2el38TsTFyRIvGhcXpR6k1IH22LoxPC/1I87KNSnsWrXVrnK0111XShUqgwqZFSt076 9qQaUizRICYXE00iAnZE8Ujw39FV+BAAAA== $LanguageId = 0409 $DatFile

'##E# ' FormLines Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Const BF_TOPLEFT = &H3 Const BF_BOTTOMRIGHT = &HC Const BF_RECT = (BF_TOPLEFT Or BF_BOTTOMRIGHT) Const BDR_SUNKENOUTER = &H2 Const BDR_RAISEDINNER = &H4 Global vbPixels = 3 '========================================== LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Paint() Dim rc As RECT Dim OldScaleMode As Long //Cls OldScaleMode = ScaleMode 'API uses pixels ScaleMode = vbPixels '2 pixel sunken ~SetRect(rc, 12, 12, ScaleWidth - 12, 14) ~DrawEdge(Me.hDC, rc, BDR_SUNKENOUTER, BF_RECT) '3 pixel sunken ~SetRect(rc, 12, 24, Me.ScaleWidth - 12, 27) ~DrawEdge(Me.hDC, rc, BDR_SUNKENOUTER, BF_RECT) '2 pixel raised ~SetRect(rc, 12, 48, Me.ScaleWidth - 12, 50) ~DrawEdge(Me.hDC, rc, BDR_RAISEDINNER, BF_RECT) '3 pixel raised ~SetRect(rc, 12, 60, Me.ScaleWidth - 12, 63) ~DrawEdge(Me.hDC, rc, BDR_RAISEDINNER, BF_RECT) ScaleMode = OldScaleMode End Sub $DatFile $FormVersion = 2 :{Form1 130 EAAAAAAAAAAAAAAAWWEAAEWRwAQFmJXbxAwElCAAE00UgMVYuNHITVmcpZGAAAAAIAAAA+AAAAIA AAQAAcAAACAAsJGbxAQCAAwhEFAAwLEAAEORAAgFEpCABKVYpNXZkBSLgMVdutWZuBCTp5WZzBAC AAAgPAAAACAAAAAAAAAACA== $LanguageId = 0409 $DatFile

'A. Barbosa LoadForm frm1 Local n% For n = 0 To 9 ' Add some lines to the Combo cb1.AddItem "Line # " + Str(n) Next cb1.ListIndex = 0 ' Shows the first line Do GetEvent Until Me Is Nothing Sub cb1_Click '##E# ed1.Text = cb1.ListIndex ed2.Text = cb1.Text End Sub $DatFile $FormVersion = 2 :{frm1 240, 300 sDAUDtWMkDALB8NAjDgBLBnaPRvV3jwExMBJR/T808G9Y8M8/HxFVFUMUUiETIVWxVR0RMRUlQX6 H+LNvDE9vDgIACgAAhwxRIECphthiHeWDB3WFG0onCj1wHzQ4wr5TzEq58ZM7P5q88ECdJhQPECC ClUp8ZX+a4KQmWMIdIGCFrhOx3xwdyWYZUWyX5arOvGmC7OihO9YQqqYSmBTh7kpmqwSIw//nVSX 5KEqzKDThwfMszOG6Qo1sUKKDhQWeeNoIs7Z0XausEE/KKcDAEMXJ1oaY05mxgyNjfuLTcjhdtxQ 491T4WdlEn25DAAA $DatFile

'##E# 'Enviroment ' LoadForm form1 Do Sleep Until Me Is Nothing Sub Command1_Click() form1.Close End Sub Sub Command2_Click() Dim ENV As String Dim i As Integer List1.Clear i = 1 ENV = Environ(i) Do Until ENV = "" ENV = Environ(i) List1.AddItem ENV i = i + 1 Loop End Sub $DatFile $FormVersion = 2 :{Form1 231, 246 jDAUDtWMbDg9AYNAaDgBMBxM6Tj8II2NR8T8E914ERBJjQTMVEkIxEhIyEh8kZhE5JiYTMjcy85b 37IeAIQSAQACgARKFChQUQTVI4Wq3Q4MbNohw+8WYibIkMPKb88mksx19XCRdtjjQovEC9QIUCtY rdJ+l0/WQSIQvWCYoG6q8GsmyTBEEVGMMZM6sZyQly885tftBBhgnvSwXOYn6XozvuEImvZdxsUK X+altggQHA5Hhtju8vQnd1SgYm27vHdtm4T9rM2CKCBe5S8pNwZJH6Qo66Rdr8uTZe9+XE5hotij BAAA $DatFile

$Library "vbconstants.lg32" Private Const LB_SETTABSTOPS = &H192 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private lngTabs(0 To 1) As Long LoadForm form1 Do : Sleep : Until Me Is Nothing Sub form1_Load() 'set up the tab stops--only needs to be done once, i. e. could be a 'separate procedure Dim lngCount As Long lngTabs(0) = 0 * 4 lngTabs(1) = 20 * 4 lngCount = 3 ' number of tabstops to set SendMessage List1.TabStop, LB_SETTABSTOPS, lngCount, lngTabs(0) '##E# 'populate with tab stops Local i For i = 1 To 15 List1.AddItem "Column1" & vbTab & "Column2" & vbTab & "Column3" & vbTab & "Column4" Next End Sub Sub Command1_Click form1.Close $DatFile $FormVersion = 2 :{Form1 212, 217 QDAUDtWMIDQ2AMMALDgAGBhpPNybxjwExsB/T818WSyEx/vcUERJjczIjQkKCJx5SEmIXUiIx8p9 atI/PccEChQbwyQSExaIkr+CakPv+FmYGCHeH3Gz6v3GdPfKvpK98ECdJhQPEClQqlSXaPv3/CKC B/xSgdMwlVN0dUnCsa2CLTya6SmWivrrZ9q/CDhu1aJIsG6EcGCciWCkqMO3volcVKazmdb/LYIE E6sEYrMQ1YNE4FtFIJObec/1/9m035t8WjSaQ5LjQ4/P87hcosIAAAA= $LanguageId = 0409 $DatFile

' CBTextLen ' ********************************************************************** ' * Comments : Set a Combo Boxs Maximum Text Length ' * ' * ' ********************************************************************** Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long '##E# Private Const CB_LIMITTEXT = &H141 LoadForm frm1 LimitCBText(Combo1, 5) Label1.Caption = "Limit 5 Characters" Do : Sleep : Until Me Is Nothing Sub LimitCBText(CB As ComboBox, MaxLength As Long) 'usage: CB = ComboBox to limit length of 'MaxLength: Max characters allowed 'Example: LimitCBText Combo1, 5 SendMessage CB.hWnd, CB_LIMITTEXT, MaxLength, 0 End Sub Sub Command1_Click frm1.Close $DatFile $FormVersion = 2 :{frm1 181, 200 xCAUDtWMpCAyAQKAIDQA0AxPxTj8WwPCEdx0PRfNvJTYT8Y8LJhIykioJdPxxbEFFFB9pd4zw7gQ EREREREczI2kVgRlZXhE5IEw5Z5tIha5ZykoaERYExrExHRMBj4j4kbR5KoEht2E2ahFpMewnUob ExjIiPiIiYcO5uXk8qgQ8Az5RlBaYaRw9cC9ELRqRERExM0WRT3KgEht2E+XwmTGh/BK0dFdrwIi XJiPiIiIEAAAAA== $DatFile

' Save CB by AB - Modified by Bryant LoadForm form1 ed1.Text = "c:\gb32\barbosa\cb.txt" Do : Sleep : Until Me Is Nothing Sub form1_Load Local i As Int, d Dim a$(20) While _Data Read d a$(i) = d Combo1.AddItem a$(i) i++ Wend Combo1.ListIndex = 0 EndSub Sub CmdSave_Click Local n As Int Local file As String '##E# file = ed1.Text Open file for Output As # 1 For n = 0 To Combo1.ListCount - 1 Print # 1, Combo1.List(n) Next n Close # 1 Combo1.Clear EndSub Sub CommandLoad_Click Combo1.Clear Local file As String Local r$ file = ed1.Text Open file for Input As # 1 While Not EOF(# 1) Input # 1;r$ Combo1.AddItem r$ Wend Close # 1 Data John Findlay Data Antonio Barbosa Data Michael Weigand Data Pat Bullman Data Peter Heinzig Data Dale Bryant Data Tom Record Sub Command2_Click form1.Close Sub CommandCLear_Click Combo1.Clear $DatFile $FormVersion = 2 :{form1 336, 409 MFAUDtWMEFQmB8TAGFgBeBhpPNR8WMBPi8T818mIxFy4VIhEzIiIzUSERESESEmZxIxX8NTVBlfa vW/Sf3//BYtu3TAQEAYQIKAIREACRARAAFQAAJ4IECkjthk1QgbOE6ZvhJS7zbhHyhwBjPbfda8s 9tuziUIECKChfNhwfIEKhULlmi3zj3bBLhg6aJwOGQEnc4HJxnA1m0ggHlNtprl485XHFrhhwv/c JwvGCcrhAoiLBqeuEpLJpseuFkECgoGCpc4HTNhDRvBg0kd5PkcGCoCHhAH3UwwoZxUG77j386U4 MalITihQ4d8dL4IIHG1gc61AcATtBpkAZBq2Z9uig+86FeAwDjFAlsM3pdS4ufGGCBIkLBdZPyL/ ophFPXTQRkxg4mxDy1yv0HfqGWUOkZyi4lMDHRCr99pvC76D9Uhd0Uga8dxlL9msCAAA $LanguageId = 0409 $DatFile

' RTFLoadSave '##E# LoadForm form1 Label1.Caption = "Loading And Saving RTF Files" Dim sfilename Do : Sleep : Until Me Is Nothing Sub CmdLoad_Click 'Insert Load File Name Here sfilename = "c:\gb32\makebld.rtf" RichTextBox1.LoadFile sfilename, rtfText Sub cmdSave_Click ' Insert Save File Name Here sfilename = "c:\gb32\makebld.rtf" RichTextBox1.SaveFile sfilename, rtfText Sub CommandExit_Click form1.Close $DatFile $FormVersion = 2 :{form1 257, 297 9DAUDtWM1DQKBAPAzDgBPBRU6Tj8WMyOU+T8E5xbUgL+MQUI0IRIhImIxEiIkKkheMSMSMRIl9p9 a979OgYACITgABCBIABQAeIIEC6+iDNnhd65AfuZpBP6JNvFe4GCCQw51ZnCrrzXSE0HChghQYXS IsHChSoFbNXjEs7397NNxcu3CaCBRflA/a4HF5QYM/EYG1GOekGSxh2TdeVNn+aYIE4XL/QIHuww XYHE1FlRTpR3mjWj9WqYfe9sz7NasAjvprjopJbpmjKn55Ol18NBahhwP58kvUaJw0ykHhtm6u8X GbBFhA1vS0SDAeJmDBqVVBmMkvoaidJKrIIBAAA= $LanguageId = 0409 $FileFlags# = 2 $DatFile

'##E# ' ListViewSaveData ' ListView5 original by AB -Antonio Barbosa ' Modified for disk data by Bryant ' 15 April 2001 ' NOTE :In Text Editor Make a LVData.dat file ' Like Name,Interest,Country ' ' Antonio Barbosa,ListViews,Germany ' ' Separate fields with commas and save file with ' name lvdata.dat ' Click Load Data to load the lvdata.dat file from disk ' The ListView will be populated from the lvdata.dat file ' The data can then be saved as anyname.dat Global a$, b$, c$, d$ Global file As String InitTypes LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load Global lvLastSorted As Int lvLastSorted = -1 lv1.GridLines = True lv1.FullRowSelect = True lv1.View = 3 'ReportView lv1.ColumnHeaders.Add( , , "Name").Width = 1680 lv1.ColumnHeaders.Add ( , , "Type").Width = 1680 lv1.ColumnHeaders.Add ( , , "Loc.").Width = 1680 Ocx ImageList IML With IML .Add , , LoadPicture(":up.bmp") '0 .Add , , LoadPicture(":down.bmp") '1 End With lv1.SmallIcons = IML Global Dim MyIcon(3) As Int Local n As Int For n = 1 To 3 MyIcon(n) = 1 SetIcon(n, MyIcon(n)) Next frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdclear_Click lv1.Clear EndSub Sub cmdWriteData_Click Try ChDir "C:\gb32\barbosa\" CommonDialog1.Flags = cdoPathMustExist | cdoFileMustExist | cdoAllowMultiSelect | cdoExplorer CommonDialog1.Filter = "Data|*.dat" CommonDialog1.ShowSave file = CommonDialog1.FileName Local sfile = FreeFile Open file for Output As # sfile Local item As Int Local iCount As Integer For item = 1 To lv1.Count For iCount = 0 To lv1.ColumnHeaders.Count - 1 Print # sfile, lv1.Item(item).SubItems(iCount) Next Next Close # sfile Catch Message Err$ EndCatch EndSub Sub CommandLoad_Click Close # 2 '##B# lv1.View = 3 //Report View CommonDialog1.Flags = cdoPathMustExist | cdoFileMustExist | cdoAllowMultiSelect | cdoExplorer CommonDialog1.Filter = "dat Files|*.dat" CommonDialog1.ShowOpen file = CommonDialog1.FileName Local sfile = FreeFile Open file for Input As # sfile ' If lastname,first use Line Input While Not EOF(# sfile) Line Input # sfile, a$, b$, c$ Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = a$ li.SubItems(1) = b$ li.SubItems(2) = c$ Wend Close # sfile EndSub Sub lv1_ColumnClick(Col As ColumnHeader) Try If Col.Index = lvLastSorted lv1.Sort Col.Index - 1, $10000 lvLastSorted = 0 MyIcon(Col.Index) = 1 - MyIcon(Col.Index) SetIcon(Col.Index, MyIcon(Col.Index)) Else lvLastSorted = Col.Index lv1.Sort Col.Index - 1, 1 MyIcon(Col.Index) = 0 SetIcon(Col.Index, MyIcon(Col.Index)) EndIf Catch Message Err$ EndCatch EndSub Sub SetIcon(colum%, icon%) Local header As Handle header = SendMessage(lv1.hWnd, LVM_GETHEADER, 0, 0) HD.iImage = icon ~SendMessage(header, HDM_SETITEM, colum - 1, HD) EndSub Sub InitTypes Global Const LVM_FIRST = &H1000 Global Const LVM_GETHEADER = (LVM_FIRST + 31) Global Const HDI_IMAGE = &H20 Global Const HDI_FORMAT = &H4 Global Const HDF_BITMAP_ON_RIGHT = &H1000 Global Const HDF_IMAGE = &H800 Global Const HDF_STRING = &H4000 Global Const HDM_FIRST = &H1200 Global Const HDM_SETITEM = (HDM_FIRST + 4) Type HD_ITEM -Int mask, cxy, pszText, hbm, cchTextMax, fmt, lParam, iImage, iOrder End Type Global HD As HD_ITEM HD.mask = HDI_IMAGE | HDI_FORMAT HD.fmt = HDF_STRING | HDF_IMAGE | HDF_BITMAP_ON_RIGHT EndSub $DatFile $FormVersion = 2 :up.bmp 107, 374B nBAUDtWMfBgdBoFAqBgAkAh0hMhIRESE0IxMPD//sTSNuK7f2/bBiEqRilUEBmgSEaZdGCTIb2Kc mIM9yahklUprr7HhfEb9lwZ/W3J7a/p37sr5X9LPPBhGwX9Lq9qCvrxy4d2PVMRAAAA= :down.bmp 104, 374B kBAUDtWMcBgdBcFAnBgAhAS4UEPDxEyERMScxTQ///BWxNO/n9/CFGdOCOgciIoEQiQ6KRjRIAYu K2CRYadlKjrq///qs6qivNdmI87ab3pTDV3u2Wzb72d6aT5+U6aXCmIaLrUGAAA= :{frm1 506, 693 2HAUDtWMuHQtCkeAMIgBBChpvAPNyblER0B9E9WM1Ey4oEBRRIEGDGhIaU2NcsyEREqYfuGdWlTw vj//6+7X/LspExLgEU+giGcDOSAkCBSCIAUBgAWAEEIQLLhQI0OSoIEoHkG+5ltF0Au9ZdhLahwC k0G1OqWeUbffFcNVJBCChfIEC/hQoEStUa61vuwUQJc+C/AuGwKpcAb4LjgAp22l3koi55ToBL9r 2DHB4ROH+xdNok1X4nXVSgx0mFXJRl+ptgiQQIeC4Fo5wP9vQwdFEBO8Dhwzl9JZFgDypn0R/UXQ RQ5UeCMFshaNIZIE4vZyxjvgiAbOXYpokyGuCboQhEmJE48806q6e4IAay5gMYmDBaTMHgQghETe IKBKLmf7j7Ww8AVE/pByHaCMqNMcEd++uBkhkDctvav/NafMcEoC3c5HRe8OoKwYy0T8bVOAjT4o Z8Q6+9sFDJXlyr4XdBAECC/KKpkDuxZO8D1KaCMA2t+YdUd055ZES379JbLRA137wAtDNQlSLD17 55R1nWvHPtgySwtn/BQEY0EthwnGGbGTSuV/tO+ejOdBUFC1aIwtGCwudUqPNXPWHF3f91YlWQ6X I4qGYvnxwcIfp9YVN6iSgYEZB/NDpBrryt7dtT4qrBsJDNuhQqerfftvHxUngHiAAAA= $LanguageId = 0409 $FileFlags# = 2 $DatFile

OpenW 1 Dim a$(20) Global b, i, j, k While _Data Read b a$(i) = b i++ Wend Data Dale,John,Antonio,Fred,Tom Data Bev,Steve,Mark,Eberhard,Joe QSort a$(), i For j = 0 To i + 1 Print a$(j) Next j Print i; " Entries" Print "Any Key" KeyGet k CloseW 1

' ListView by AB -Antonio Barbosa ' 11 April 2001 ' Modified by Dale Bryant for selected delete LoadForm frm1 Do GetEvent Until Me Is Nothing Sub frm1_Load lv1.GridLines = True lv1.FullRowSelect = True lv1.TextBackColor = RGB(190, 190, 190) lv1.ForeColor = RGB(0, 0, 255) lv1.BackColor = RGB(190, 190, 190) lv1.View = 3 'ReportView Local n As Int Local c As Int Local li As ListItem For c = 1 To 3 lv1.ColumnHeaders.Add , , "Header " + Str(c) Next For n = 1 To 10 Set li = lv1.AddItem For c = 0 To 2 li.SubItems(c) = "Line " + Str(n) + " Column " + Str(c) Next Next frm1.OnTop = True EndSub Sub cmd_Quit_Click frm1.Close EndSub Sub lv1_ItemClick(Item As ListItem) Local x As String x = Item.SubItems(0) ed0.Text = x x = Item.SubItems(1) '##E# ed1.Text = x x = Item.SubItems(2) ed2.Text = x EndSub Sub cmdAddLine_Click Local li As ListItem Set li = lv1.AddItem li.SubItems(0) = ed0.Text li.SubItems(1) = ed1.Text li.SubItems(2) = ed2.Text EndSub Sub cmdClear_Click lv1.Clear EndSub Sub cmdDelete_Click Dim Idx As Integer , ss As String , s1 As String Idx = lv1.SelectedItem.Index lv1.ListItems.Remove Idx $DatFile $FormVersion = 2 :{frm1 322, 428 +EAUDtWM2EArBETA1EgBnBS9x90IvVPChEhVREy+E9GhYbCFRUiIRESFhMVEeUdlyMUQrdf6eK5E vjoHA4/cWFzRAHQBpBIkCISAVQQICA4ySIECbHJZhA5g4QnW1Z40OD/SDjoKEQEEMva2NB0saOzQ v9NdJDGChulQoHChhQaLl+uxj0wXoTOG6QLGIzqGQCWqSCc2ajwIJaQu/ZgAC4ofPcEgC3aoDvYQ LoeDdaxrw/XTjvnh8szw0ntkDshpaQLueDBwENF+5HChnx9PjD0B03TSQeWaYKghtaAAkaCLlQgf zli0h1wUYlSNouhinmspLipBvzzIQPhsGeF2Qqeisilw/lLPA7S5S8O7mhGfFmg79UX5M8/J6Y17 9dTYZ5Nfn33UnUwmaNcprGYCr3QAdRVh/RRi2Xuzy3zNcEAAAA== $LanguageId = 0409 $FileFlags# = 2 $DatFile

'ShellAndWait ShellAndWait ("notepad.exe c:\gb32\wavefix.txt") Function ShellAndWait(FileName As String) Dim objScript On Error GoTo ERR_OpenForEdit Set objScript = CreateObject("WScript.Shell") ' Open a file for editing in Notepad and ' wait for return. ' True for the Wait. Local ShellApp = objScript.Run(FileName, 1, True) ShellAndWait = True EXIT_OpenForEdit: Exit Function ERR_OpenForEdit: MsgBox Err.Description GoTo EXIT_OpenForEdit End Function

°The mouse may be restricted to a particular area with the ClipCusor °API call. If the coordinates given are off the visible screen then the °mouse can not be seen. Note that the position specified must be relative °to the screen so the ClientToScreen call can be used to convert the °application's window coordinates to the equivalent screen coordinates. '##E# Type POINTAPI x As Long y As Long End Type Type Rect left As Long top As Long right As Long bottom As Long End Type Declare Function ClipCursor Lib "user32" (lpRect As Rect) As Long Declare Function ReleaseCursor Lib "user32" Alias "ClipCursor" _ (ByVal lngZero As Long) As Long LoadForm form1 Do Sleep Until Me Is Nothing Sub Command1_Click() Label1.Caption = "Cursor Restricted Try Moving" Dim udtArea As Rect Dim udtPoint As POINTAPI udtPoint.x = 0 udtPoint.y = 0 Me.ScaleMode = 3 //vbpixels ~ClientToScreen(Me.hWnd, udtPoint) udtArea.top = udtPoint.y udtArea.left = udtPoint.x udtArea.right = udtPoint.x + Me.ScaleWidth udtArea.bottom = udtPoint.y + Me.ScaleHeight ClipCursor(udtArea) End Sub Sub Command2_Click() Label1.Caption = "Cursor Released : Can Be Moved" ReleaseCursor(0) End Sub Sub cmdExit_Click form1.Close $DatFile $FormVersion = 2 :{Form1 230, 248 iDAUDtWMaDA+AUNA//PAFQAAAAQpDFxAH4CAAYZRAAQYFBDAVYmctFDATUKAAQQTTByUh52cgMVZ ylmZAAAAAgAAAA4DAAAgAAAABAwBRcwBiM0bt1WYuRWMAMAAQqTRAArGFBA41SEAAQ7QXAQgDxWa wByQ1J3cvJXE9ERNAEAFtcQFyAwAAAsxEBAwZUEAguJRAAg0DFBABKVZzVGdWUyBHMWbkVEepRHA DAAAHOkEZRhJCABABKxFVQyBOwUYiVGbxAQCAAMKEBAAWMEAgeVRRMDBZAQgsJGEZcxrBEBMBQgA AAA= $LanguageId = 0409 $DatFile

'lets do combobox 'OpenW 1 Local msg$, title$, retval$ Local fs$ LoadForm form1 Center Do : Sleep : Until Me Is Nothing Sub form1_Load combo1.AddItem "John Findlay" combo1.AddItem "Joe Hurst" combo1.AddItem "Engelbert van Loock" combo1.AddItem "Eberhard Funck" combo1.AddItem "Bev Brown" combo1.AddItem "Tom Record" combo1.AddItem "Karl-Werner Rieger" combo1.AddItem "Sjouke Hamstra" combo1.AddItem "Ron Parker" combo1.AddItem "Brent Deck" combo1.AddItem "Patrick Battig" combo1.AddItem "Uli Stemmeler" // ~SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, True, 0) ' set to first list item combo1.ListIndex = 0 End Sub Sub cmd1_Click form1.Close CloseW 1 End Sub Sub cmdSearch_Click Local a As String Local dwReturned% Label1.Caption = "Entries Found" a = Text1.Text Beep dwReturned% = SendMessage(combo1.hWnd, CB_FINDSTRING, -1, a) 'Syntax: If dwReturned% ~SendMessage(combo1.hWnd, CB_SETCURSEL, dwReturned%, 0) Text2.Text = combo1.List(dwReturned%) Combo2.AddItem combo1.List(dwReturned%) EndIf If dwReturned% = -1 Text2.Text = a & " Not Found" EndIf ~SendMessage(Combo2.hWnd, CB_SHOWDROPDOWN, True, 0) $DatFile $FormVersion = 2 :{Form1 375, 472 zFAUDtWMrFA2BYWA6FgBqBhpvAPNyb1HgE0PR8Exj7hEdIREhMxURIRUjElES4SEELeEiETEWMP6 oWvDKY8zuLEIyAIgCC0ERACGMETBhEQJArQRIECNDJIECADe5Q4M7NoiyMtpwC9QQBKGjjn8ujj9 ZSUaGTWsEC7iCh9QIUCpWKpiwKN/rTBPhAZ3B+YZL8JOH2BUdJ83kGcs4spNJbgANGTBDhBElDsd mDsR1WYHU1nwfmKJiHCTS4ZvfzkFxQoUqNYkscF8E25kLB6bB0VfqIIFBxp/OrpAACh3cJYfL8pN HCv1Y4HDE70ujyXZyjxBmKBEa6aAbBBDwJJZsfOTgTwQIgs6DaEIQW4fRWIeAFTaTuKF9dqEvCaC Dr5Ab8tFM7NHCkr6Cgp57hbwQIAQkc4o5N5ZKoJEeVH+a5QQZOEo/YrFYdArwVDXpBI5OsDutQwV OsztaN8rHIv9oJ8kk8xZ+8uHd3ZtijFoV4zXl8ygAAAA $LanguageId = 0409 $FileFlags# = 2 $DatFile

'ComboSearch2 Local msg$, title$, retval$ Local fs$ LoadForm form1 Center Do : Sleep : Until Me Is Nothing Sub form1_Load combo1.AddItem "John Findlay" combo1.AddItem "Joe Hurst" combo1.AddItem "Engelbert van Loock" combo1.AddItem "Eberhard Funck" combo1.AddItem "Bev Brown" combo1.AddItem "Tom Record" combo1.AddItem "Karl-Werner Rieger" combo1.AddItem "Sjouke Hamstra" combo1.AddItem "Ron Parker" combo1.AddItem "Brent Deck" combo1.AddItem "Patrick Battig" combo1.AddItem "Uli Stemmeler" // ~SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, True, 0) ' set to first list item combo1.ListIndex = 0 End Sub Sub cmd1_Click form1.Close CloseW 1 End Sub '##E# Sub cmdSearch_Click Local MyText As String Local item As Int MyText = Text1.Text item = combo1.Find(MyText) combo1.ListIndex = item Text2.Text = combo1.List(item) Combo2.AddItem combo1.List(item) EndSub $DatFile $FormVersion = 2 :{Form1 375, 472 zFAUDtWMrFA2BYWA6FgBqBhpvAPNyb1HgE0PR8Exj7hEdIREhMxURIRUjElES4SEELeEiETEWMP6 oWvDKY8zuLEIyAIgCC0ERACGMETBhEQJArQRIECNDJIECADe5Q4M7NoiyMtpwC9QQBKGjjn8ujj9 ZSUaGTWsEC7iCh9QIUCpWKpiwKN/rTBPhAZ3B+YZL8JOH2BUdJ83kGcs4spNJbgANGTBDhBElDsd mDsR1WYHU1nwfmKJiHCTS4ZvfzkFxQoUqNYkscF8E25kLB6bB0VfqIIFBxp/OrpAACh3cJYfL8pN HCv1Y4HDE70ujyXZyjxBmKBEa6aAbBBDwJJZsfOTgTwQIgs6DaEIQW4fRWIeAFTaTuKF9dqEvCaC Dr5Ab8tFM7NHCkr6Cgp57hbwQIAQkc4o5N5ZKoJEeVH+a5QQZOEo/YrFYdArwVDXpBI5OsDutQwV OsztaN8rHIv9oJ8kk8xZ+8uHd3ZtijFoV4zXl8ygAAAA $LanguageId = 0409 $FileFlags# = 2 $DatFile