Visual Basic 6.0

https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/
Admin
Visual Basic 6.0 is a programming language and integrated development environment for creating...
Tokens:934,393
Snippets:12,506
Trust Score:10
Update:2 months ago
Show doc for...
Tokens:
Raw
### Define Setup1 Files entries

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263457%28v%3Dvs.60%29

Example entries for the Setup1 Files section, specifying file names, installation paths, registration flags, and metadata.

```ini
[Setup1 Files]
File1=@LotsAControls.exe,$(AppPath),$(EXESelfRegister),,1/26/98 3:43:48 PM,7168,1.0.0.0

File2=@mscomctl.ocx,$(AppPath),$(DLLSelfRegister),,1/23/98 9:43:40 AM,1011472,6.0.80.23
```

--------------------------------

### Typical BootStrap Files Section Configuration

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263457%28v%3Dvs.60%29

Example of entries in a BootStrap Files section, defining core DLL dependencies and their installation metadata.

```ini
[Bootstrap Files]
File1=@Msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),1/23/98 9:43:25 AM,1457936,6.0.80.23

File2=@OleAut32.dll,$(WinSysPath),$(DLLSelfRegister),1/21/98 11:08:26 PM,571152,2.30.4248.1

File3=@OlePro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),1/21/98 11:08:27 PM,152336,5.0.4248.1
```

--------------------------------

### Base URL for Webclass Start Event

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733549%28v%3Dvs.60%29

Example of a base URL used to trigger the Start event for a webclass application.

```text
http://www.mycompany-inc-10.com/Project1_OrderEntry.asp
```

--------------------------------

### Example Command-Line Input

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733562%28v%3Dvs.60%29

An example of how a user might enter arguments in the Run dialog box for an application named Alarm.

```text
Alarm 11:00:00
```

--------------------------------

### Add Optional Installation Logic in Setup1.frm

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733687%28v%3Dvs.60%29

Insert this logic into the Form_Load event of setup1.frm after the ShowBeginForm call to prompt users for optional file installation.

```Visual Basic
Dim LoadHelp As Integer
LoadHelp = MsgBox ("Do you want to install Help? ", vbYesNo)
If LoadHelp = vbYes Then
   CalcDiskSpace "Help"
EndIf
' Block of code containing cIcons = CountIcons(strINI FILES)
If LoadHelp = vbYes Then
   cIcons = CountIcons("Help")
EndIf
' Block of code containing CopySection strINI_FILES.
If LoadHelp = vbYes Then
   CopySection "Help"
EndIf
' Block of code containing CreateIcons, strINI FILES, strGroupName
```

--------------------------------

### Command Line Argument Examples

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa262696%28v%3Dvs.60%29

Examples showing how command-line arguments are passed to Visual Basic applications during launch.

```text
VB /cmd cmdlineargs
```

```text
MyApp cmdlineargs
```

--------------------------------

### IconGroups Section Configuration Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263457%28v%3Dvs.60%29

Defines program groups and their associated icons and titles for an installation process.

```INI
[IconGroups]
Group0=MyTestEXE
Group1=Group1

[MyTestExe]
Icon1=my.exe
Title1=MyTestExe

[Group1]
Icon1=ReadMe.txt
Title1=ReadMe
Icon2=my.hlp
Title2=Help
```

--------------------------------

### GetObject Usage Examples

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261365%28v%3Dvs.60%29

Examples demonstrating how to assign object references using GetObject with different arguments.

```Visual Basic
Set X = GetObject(, "MySrvr.Application")
```

```Visual Basic
Set X = GetObject("", "MySrvr.Object")
```

```Visual Basic
Set X = GetObject(, "MySrvr.Object")
```

--------------------------------

### URL with Webitem Parameter

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733549%28v%3Dvs.60%29

Example URL that bypasses the Start event by specifying a target webitem directly.

```text
http://www.mycompany-inc-10.com/Project1_OrderEntry.asp?WCI=Form1
```

--------------------------------

### Handling the Webclass Start Event

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733549%28v%3Dvs.60%29

Implementation of the Start event to navigate to an initial webitem.

```vb
Private Sub Webclass_Start()
   Set NextItem = Webitem1
End Sub
```

--------------------------------

### Initialize HTML Output

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa232739%28v%3Dvs.60%29

Use the Response.Write method to start the HTML document structure.

```vb
Response.Write "<HTML><BODY><H1>Customers in the System</H1><HR>"
```

--------------------------------

### Constant Naming Examples

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa240858%28v%3Dvs.60%29

Examples of constant naming conventions using scope and type prefixes.

```visual-basic
mintUserListMax      'Max entry limit for User list
                  '(integer value,local to module)
gstrNewLine            'New Line character
                  '(string, global to application)
```

--------------------------------

### Implement Property Get and Let for PictureFromURL

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261318%28v%3Dvs.60%29

The Property Get retrieves the stored URL, while the Property Let initiates an asynchronous download if the control is in run mode.

```vb
Public Property Get PictureFromURL() As String
   PictureFromURL = mstrPictureFromURL
End Property

Public Property Let PictureFromURL(ByVal NewString _
      As String)
   ' (Code to validate path or URL omitted.)
   mstrPictureFromURL = NewString
   If (Ambient.UserMode = True) _
         And (NewString <> "") Then
      ' If program is in run mode, and the URL string
      ' is not empty, begin the download.
      AsyncRead NewString, vbAsyncTypePicture, _
         "PictureFromURL"
   End If
   PropertyChanged "PictureFromURL"
End Property
```

--------------------------------

### Defining Property Get with Multiple Arguments

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716315%28v%3Dvs.60%29

Example of a Property Get declaration that matches the arguments of the corresponding Property Let.

```vb
Public Property Get Things(ByVal X As Integer, _
ByVal Y As Integer) As Variant
   ' (Code for retrieval from array omitted.)
End Property
```

--------------------------------

### Specifying Remote Server Components in Setup.lst

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733565%28v%3Dvs.60%29

Example entries for the Setup.lst file defining remote server components and their associated connection parameters.

```text
File1=@LotsAControls.vbr,$(WinSysPath),$(Remote),,1/26/98 3:43:48 PM,1024,1.0.0.0
File2=@Server2.vbr,$(WinSysPath),$(Remote),,1/23/98 9:43:40 AM,1024,6.0.80.23
Remote1="Schweizer","ncacn_ip_tcp",1,RA
Remote2=,,1,DCOM
```

--------------------------------

### Displaying a Help file with Command1_Click

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733689%28v%3Dvs.60%29

This example demonstrates how to configure the common dialog control and invoke the ShowHelp method when a button is clicked.

```vb
Private Sub Command1_Click()
   ' Set Cancel to True.
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   ' Set the HelpCommand Property
   CommonDialog1.HelpCommand = cdlHelpForceFile
   ' Specify the Help file.
   CommonDialog1.HelpFile = "c:\Windows\Cardfile.hlp"
   ' Display the Windows Help engine.
   CommonDialog1.ShowHelp
   Exit Sub

ErrHandler:
   ' User pressed Cancel button.
   Exit Sub
End Sub
```

--------------------------------

### Define a Standard Enumeration

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261344%28v%3Dvs.60%29

Example of an enumeration where constants are automatically incremented starting from zero.

```vb
Public Enum Days
   Sunday
   Monday
   Tuesday
   Wednesday
   Thursday
   Friday
   Saturday
End Enum
```

--------------------------------

### Configure Proxy Settings

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa239747%28v%3Dvs.60%29

Examples demonstrating how to set proxy servers for specific protocols or as a global default.

```Visual Basic
Inet1.Proxy = "ftp=CorpFTP:123"
```

```Visual Basic
Inet1.Proxy = "ftp=CorpFTP:123 HTTP=CorpHTTP:131"
```

```Visual Basic
Inet1.Proxy = "CorpFTP:123"
```

--------------------------------

### StartOfWeek Property

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa276884%28v%3Dvs.60%29

The StartOfWeek property is used to get or set the starting day of the week for a calendar control.

```APIDOC
## StartOfWeek Property

### Description
Returns or sets a value that specifies the starting day of the week for the calendar control.

### Syntax
object.StartOfWeek [= integer]

### Parameters
- **object** - An object expression that evaluates to a valid Windows Control.
- **integer** - A numeric expression specifying the starting day of the week.

### Settings
- **mvwSunday** (1) - Sunday (Default)
- **mvwMonday** (2) - Monday
- **mvwTuesDay** (3) - Tuesday
- **mvwWednesday** (4) - Wednesday
- **mvwThursday** (5) - Thursday
- **mvwFriday** (6) - Friday
- **mvwSaturday** (7) - Saturday
```

--------------------------------

### Example .ddf File Structure

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261342%28v%3Dvs.60%29

A sample .ddf file generated by the Package and Deployment Wizard, containing cabinet configuration settings and file paths.

```text
.OPTION EXPLICIT
.Set Cabinet=on
.Set Compress=on
.Set MaxDiskSize=CDROM
.Set ReservePerCabinetSize=6144
.Set DiskDirectoryTemplate=
.Set CompressionType=MSZIP
.Set CompressionLevel=7
.Set CompressionMemory=21
.Set CabinetNameTemplate="ControlDemo.cab"
"C:\Website\Cabfiles\ControlDemo.inf"
"C:\ControlDemo\ControlDemo.ocx"
```

--------------------------------

### Opening an Excel Workbook

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261365%28v%3Dvs.60%29

Example of using GetObject to start an application and open a specific file.

```Visual Basic
Dim xlBook As Excel.Workbook
Set xlBook = GetObject("C:\Accounts\Revenue.xls")
```

--------------------------------

### Example .vbp Project File Content

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716294%28v%3Dvs.60%29

A sample representation of a .vbp file showing project configuration, form references, and module definitions.

```text
Type=Exe
Form=B_Form.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation
Form=A_Form.frm
Module=CModule; C_Module.bas
Class=DClass; D_Class.cls
Startup="BForm"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Microsoft"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
ThreadPerObject=0
MaxNumberOfThreads=1
```

--------------------------------

### Implementing Read-Write Object Properties

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716315%28v%3Dvs.60%29

Example of using Property Get and Property Set to manage an object property.

```vb
Private mwdgWidget As Widget

Public Property Get Widget() As Widget
   ' The Set statement must be used to return an
   ' object reference.
   Set Widget = mwdgWidget
End Property

Public Property Set Widget(ByVal NewWidget As Widget)
   Set mwdgWidget = NewWidget
End Property
```

--------------------------------

### ShowHelp Method

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa259371%28v%3Dvs.60%29

The ShowHelp method runs Winhlp32.exe and displays the Help file specified by the HelpFile property.

```APIDOC
## ShowHelp Method

### Description
Runs Winhlp32.exe and displays the Help file specified in the CommonDialog control. Before calling this method, the HelpFile and HelpCommand properties must be set.

### Syntax
object.ShowHelp

### Remarks
- The object placeholder represents an object expression that evaluates to a CommonDialog control.
- Ensure HelpFile and HelpCommand properties are set to appropriate values before execution to avoid display errors.
```

--------------------------------

### Accessing Variant Properties

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716315%28v%3Dvs.60%29

Example showing how a Property Get procedure must handle both standard value assignment and object reference assignment.

```vb
strSomeString = objvar1.Anything
Set objvar2 = objvar1.Anything
```

--------------------------------

### Declaring a dynamic array for file operations

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243376%28v%3Dvs.60%29

Example of a dynamic array declaration that requires specific record length calculations when used with the Get statement.

```vb
Dim MyArray(1 To 5,1 To 10) As Integer
```

--------------------------------

### Define Optional Files in Setup.lst

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733687%28v%3Dvs.60%29

Add a custom section to the Setup.lst file to define the files associated with the optional installation feature.

```INI
[Help]
File1=MyApp.HL1,MyApp.HLP,$(AppPath),,,10/12/96,2946967,0.0.0
```

--------------------------------

### Setting the URL Property

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa239745%28v%3Dvs.60%29

Examples showing how to set the URL property to either a directory or a specific file.

```visual-basic
' Setting this URL will return only the file directory:
Inet1.URL = "HTTP://www.microsoft.com"
' However, this URL will return the text of the file:
Inet1.URL = "HTTP://www.microsoft.com/disclaimer.txt"
```

--------------------------------

### Specifying Component Version and CLSID in .inf

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261342%28v%3Dvs.60%29

Example of defining file versioning and CLSID requirements for an ActiveX control to ensure correct installation from a cabinet file.

```ini
[circ3.ocx]
; The lines below specify that the specified Circ3.ocx (clsid,
; version) needs to be installed on the system. If it doesn't exist
; already, can be downloaded from the given location (a .cab).
NOTE:
; If "thiscab" is specified instead of the file location, it is
; assumed that the desired file is present in the same .cab cabinet
; that the .inf originated from. If the location pointed to
; is a different .cab, that cabinet is also downloaded and
; unpacked in order to extract the desired file.

file=http://www.mycompany-inc-10.com/circ3/circ3.cab
clsid={9DBAFCCF-592F-101B-85CE-00608CEC297B}

; Note that the {}s are required when entering the CLSID in the .inf
; file. This is slightly different from the HTML syntax for inserting
; CLSIDs in an <OBJECT> tag.

FileVersion=1,0,0,143
```

--------------------------------

### Add and Configure Multiple Panels

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa443392%28v%3Dvs.60%29

Demonstrates creating six panels in a loop and setting their Key, Style, and AutoSize properties using the reference returned by the Add method.

```vb
Dim pnlX As Panel
Dim i As Integer
For i = 1 To 6  ' Add six Panel objects.
  ' Create a panel and get a reference to it simultaneously.
  Set pnlX = StatusBar1.Panels.Add(, "Panel" & i) ' Set Key property.
  pnlX.Style = i  ' Set Style property.
  pnlX.AutoSize = sbrContents ' Set AutoSize property.
Next i
```

--------------------------------

### Execute FTP GET Operation

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa239737%28v%3Dvs.60%29

Example of using the Execute method to retrieve a file from an FTP server by passing the operation and file paths as a single string.

```Visual Basic
Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"
```

--------------------------------

### Initialize and Access SmallBusiness Objects

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263491%28v%3Dvs.60%29

Demonstrates creating and setting properties for a SmallBusiness object and its contained Product object.

```vb
' Code for a standard module.
Public sbMain As New SmallBusiness
Sub Main
   sbMain.Name = "Velociraptor Enterprises, Inc."
   ' The first time the Product variable is used in
   ' code, the Product object is created.
   sbMain.Product.Name = "Inflatable Velociraptor"
   sbMain.Product.Price = 1.98
   .
   .   ' Code to initialize and show main form.
   .
End Sub
```

--------------------------------

### Delegate a Property to a Constituent Control

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa231137%28v%3Dvs.60%29

Example of delegating a Caption property to a constituent control named lblCaption using Property Get and Property Let procedures.

```Visual Basic
Public Property Get Caption() As String
   Caption = lblCaption.Caption
End Property

Public Property Let Caption(NewCaption As String)
   lblCaption.Caption = NewCaption
   PropertyChanged "Caption"
End Property
```

--------------------------------

### User-Defined Constant Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716257%28v%3Dvs.60%29

Example of a user-defined constant using the 'con' prefix.

```vb
conYourOwnConstant
```

--------------------------------

### Get Statement

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243376%28v%3Dvs.60%29

The Get statement reads data from an open disk file into a variable.

```APIDOC
## Get Statement

### Description
Reads data from an open disk file into a variable.

### Syntax
Get [#]filenumber, [recnumber], varname

### Parameters
- **filenumber** (Integer) - Required. Any valid file number.
- **recnumber** (Variant/Long) - Optional. Record number (Random mode files) or byte number (Binary mode files) at which reading begins.
- **varname** (Variable) - Required. Valid variable name into which data is read.
```

--------------------------------

### Displaying a Startup Form with Show and DoEvents

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263516%28v%3Dvs.60%29

Use the Show method within the Form_Load event to display a splash screen immediately, followed by DoEvents to ensure the form is painted before proceeding with further loading tasks.

```vb
Sub Form_Load()
   Me.Show            ' Display startup form.
   DoEvents            ' Ensure startup form is painted.
   Load MainForm      ' Load main application fom.
   Unload Me         ' Unload startup form.
   MainForm.Show      ' Display main form.
End Sub
```

--------------------------------

### Complete Form Implementation

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733593%28v%3Dvs.60%29

A comprehensive example including font list population, Frame positioning, and event handlers for formatting options.

```vb
Private Sub Form_Load()
   Dim i As Integer' Declare variable.
   ' Determine number of fonts.
   For i = 0 To Printer.FontCount - 1
      ' Put each font into list box.
      cmbFonts.AddItem Printer.Fonts(i)
   Next i

   cmbFonts.ListIndex = 0

   ' The name of the TabStrip is "tabRTF."
   ' The Frame control is named "fraTab."
   For i = 0 To fraTab.Count - 1
   With fraTab(i)
      .Move tabRTF.ClientLeft, _
      tabRTF.ClientTop, _
      tabRTF.ClientWidth, _
      tabRTF.ClientHeight
   End With
   Next i

   ' Bring the first fraTab control to the front.
   fraTab(0).ZOrder 0
End Sub

Private Sub cmbFonts_Click()
   frmRTF.rtfData.SelFontName = cmbFonts.Text
End Sub

Private Sub optBullet_Click()
   frmRTF.rtfData.BulletIndent = 500
   frmRTF.rtfData.SelBullet = True
End Sub

Private Sub optNormal_Click()
   frmRTF.rtfData.SelBullet = False

End Sub

Private Sub tabRTF_Click()
   fraTab(tabRTF.SelectedItem.Index - 1).ZOrder 0
End Sub
```

--------------------------------

### Set WebClass Start Event

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa232741%28v%3Dvs.60%29

Assigns the initial webitem to be displayed when the WebClass starts.

```visual-basic
Set NextItem = Menu
```

--------------------------------

### Create Class Module Instances

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa262302%28v%3Dvs.60%29

Shows how to instantiate a custom class module and invoke its methods.

```vb
Public clsNew As ShowMe
Private Sub Command1_Click()
   Set clsNew = New ShowMe
   clsNew.ShowFrm
End Sub
```

```vb
Sub ShowFrm()
   Dim frmNew As Form1
   Set frmNew = New Form1
   frmNew.Show
   frmNew.WindowState = 1
End Sub
```

--------------------------------

### Start Property

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa228378%28v%3Dvs.60%29

Specifies the starting position of the current media as defined by the TimeFormat property.

```APIDOC
## Start Property

### Description
Specifies, as defined in the Multimedia MCI control TimeFormat property, the starting position of the current media. This property is not available at design time and is read-only at run time.

### Syntax
[form.]MMControl.Start

### Data Type
Long
```

--------------------------------

### Intrinsic Constant Naming Examples

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716257%28v%3Dvs.60%29

Examples of mixed-case constant names with library-specific prefixes.

```vb
vbTileHorizontal
dbAppendOnly
xlDialogBorder
```

--------------------------------

### Register and Open a SQL Server Data Source

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733678%28v%3Dvs.60%29

Registers a SQL Server DSN named 'Example' and opens a connection to the 'WorkDB' database using the rdoEngine object.

```Visual Basic
Private Sub RegisterDataSource()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
      & "SQL Server on server SEQUEL"
   & Chr$(13) & "OemToAnsi=No"
   & Chr$(13) & "SERVER=SEQUEL"
   & Chr$(13) & "Network=DBNMPNTW"
   & Chr$(13) & "Database=WorkDB"
   & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"

' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
      "SQL Server", True, strAttribs
' Open the database.
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
   dsname:="Example", _
   Prompt:=rdDriverNoPrompt,
   Connect:="UID=;PWD=;")
End Sub
```

--------------------------------

### Check drive readiness with IsReady

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa265671%28v%3Dvs.60%29

This example demonstrates how to use the IsReady property to determine if a drive is accessible and display its status along with the drive type.

```vb
Sub ShowDriveInfo(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(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
    If d.IsReady Then 
        s = s & vbCrLf & "Drive is Ready."
    Else
        s = s & vbCrLf & "Drive is not Ready."
    End If
    MsgBox s
End Sub
```

--------------------------------

### Invalid Property Value Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa241679%28v%3Dvs.60%29

Example of a property assigned an incorrect or misspelled value.

```text
Top = Cahr(22)        ' Really wanted Char(22).
```

--------------------------------

### Create and Write to a Text File with FileSystemObject

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa242706%28v%3Dvs.60%29

Demonstrates initializing the FileSystemObject, creating a new text file, writing a line of text, and closing the stream.

```vbscript
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
```

--------------------------------

### Configure and establish a stand-alone rdoConnection

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa262308%28v%3Dvs.60%29

Shows how to set connection properties and use the EstablishConnection method to connect to a server.

```vb
Dim MyCn As New rdoConnection
With MyCn
   .Connect = "DSN=CustomerDB;DATABASE=MAILING;" _
            & "UID=;PWD=;"
   .CursorDriver = rdUseNone
   .LoginTimeout = 5
   .EstablishConnection (rdDriverNoPrompt)
End With
```

--------------------------------

### SourceItem Property Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa445699%28v%3Dvs.60%29

Example of a concatenated SourceDoc and SourceItem string representing a linked Excel range.

```text
"C:\WORK\QTR1\REVENUE.XLS!R1C1:R30C15"
```

--------------------------------

### Perform HTTP GET Request

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733648%28v%3Dvs.60%29

Retrieves the specified file from the server using the GET command.

```Visual Basic
Execute "http://www.microsoft.com" & "/default.htm", "GET"
```

--------------------------------

### Windows API Constant Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa716257%28v%3Dvs.60%29

Example of a Windows API constant following legacy naming conventions.

```vb
EM_LINESCROLL
```

--------------------------------

### Sample .lpk License File Structure

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa231198%28v%3Dvs.60%29

A sample license package file containing copyright notices and encrypted license strings for ActiveX controls.

```text
LPK License Package
//////////////////////////////////////////////////////
// WARNING: The information in this file is
// protected by copyright law and international
// treaty provisions. Unauthorized reproduction or
// distribution of this file, or any portion of it,
// may result in severe criminal and civil penalties,
// and will be prosecuted to the maximum extent
// possible under the law. Further, you may not reverse
// engineer, decompile, or disassemble the file.
//////////////////////////////////////////////////////
{3d25aba1-caec-11cf-b34a-00aa00a28331}
AQWWF/QT0BG9ewCg0QKOmo=
BQAAAA=yhtrFpw/zxGAdURFU1QAACkAAAB
DAG8AcAB5AHIAaQBnAGgAdAAgACgAYwApACAAMQA5ADkANQAsACAAMQA5ADkANgAg
AE0AYQBjAHIAbwBtAGUAZABpAGEALAAgAEkAbgBjAC4A=
```

--------------------------------

### Initiate a MAPI Session

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733653%28v%3Dvs.60%29

Use the SignOn method to start a MAPI session after configuring the UserName and Password properties.

```Visual Basic
mpsSession.SignOn
```

--------------------------------

### MainApp Class and Form Implementation

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa262295%28v%3Dvs.60%29

Example of a MainApp class and its associated form for managing thread initialization and cleanup.

```vb
' Code for a MainApp class.
Private mfrmMTMain As New frmMTMain

Private Sub Class_Initialize()
   Set mfrmMTMain.MainApp = Me
   mfrmMTMain.Caption = mfrmMTMain.Caption & " (" & App.ThreadID & ")"
   mfrmMTMain.Show
End Sub

Friend Sub Closing()
   Set mfrmMTMain = Nothing
End Sub

Private Sub Class_Terminate()
   ' Clean up the hidden window.
   Call FreeProcessWindow
End Sub

' Code for the form frmMTMain.
Public MainApp As MainApp

Private Sub Form_Unload(Cancel As Integer)
   Call MainApp.Closing
   Set MainApp = Nothing
End Sub
```

--------------------------------

### Missing Quotation Marks Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa241679%28v%3Dvs.60%29

Example of a string property value missing required quotation marks.

```text
Caption = Start Demo
```

--------------------------------

### Invalid Property Index Example

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa241679%28v%3Dvs.60%29

Example of a property index exceeding the maximum allowed value of 255.

```text
Prop300 = 5436
```

--------------------------------

### Display a Splash Screen on Startup

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa263475%28v%3Dvs.60%29

Execute initialization tasks while displaying a splash screen form before loading the main application interface.

```vb
Private Sub Main()
   ' Show the splash screen.
   frmSplash.Show
   ' Add your startup procedures here.
   …
   ' Show the main form and unload the splash screen.
   frmMain.Show
   Unload frmSplash
End Sub
```

--------------------------------

### Example Check Box Control Name

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa241096%28v%3Dvs.60%29

A naming convention example using a prefix to identify the control class.

```visual-basic
chkReadOnly
```

--------------------------------

### Define Format String

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa231249%28v%3Dvs.60%29

Example of a format string using 'XXXX' as a callback field placeholder.

```text
MMMM XXXX d
```

--------------------------------

### Create Form Instances with New

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa262302%28v%3Dvs.60%29

Demonstrates creating new form instances using the New keyword in a button click event.

```vb
Dim x As New Sample
x.Show
```

```vb
Dim f As Form1
Set f = New Form1
f.Caption = "hello"
f.Show
```

--------------------------------

### Load API File via Command Line

Source: https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa261280%28v%3Dvs.60%29

Use this syntax to specify a text or database file to load automatically upon starting the API Viewer application.

```text
Apilod32.exe {/T|/D} filename
```
Tokens:
Raw