Control arrays allow a single event handler to manage multiple form elements, optimizing memory usage and making your code highly scalable. Exercise 3.1: Tic-Tac-Toe Engine Using Control Arrays

Private Sub cmdLoadFile_Click() Dim intFileNum As Integer Dim strLine As String Dim arrFields() As String Dim MyConfigs() As ConfigRecord Dim intCounter As Integer intFileNum = FreeFile intCounter = 0 ' Ensure a dummy file exists for this test exercise Open App.Path & "\config.txt" For Output As #intFileNum Print #intFileNum, "Theme,Dark" Print #intFileNum, "Language,English" Print #intFileNum, "Timeout,30" Close #intFileNum ' Reopen for reading Open App.Path & "\config.txt" For Input As #intFileNum Do While Not EOF(intFileNum) Line Input #intFileNum, strLine If Trim(strLine) <> "" Then arrFields = Split(strLine, ",") ReDim Preserve MyConfigs(intCounter) MyConfigs(intCounter).SettingName = arrFields(0) MyConfigs(intCounter).SettingValue = arrFields(1) intCounter = intCounter + 1 End If Loop Close #intFileNum ' Display the dynamically populated array data Dim i As Integer For i = 0 To UBound(MyConfigs) MsgBox "Loaded: " & MyConfigs(i).SettingName & " -> " & MyConfigs(i).SettingValue, vbInformation Next i End Sub Use code with caution. Exercise 3: Defensive Error Handling and System Logging

Private Sub cmdProcess_Click() Dim strName As String Dim strEmail As String Dim arrNameParts() As String Dim i As Integer lstResults.Clear strName = Trim(txtFullName.Text) strEmail = Trim(txtEmail.Text) ' Validate Email (Basic Check) If InStr(1, strEmail, "@") = 0 Or InStr(1, strEmail, ".") = 0 Then MsgBox "Invalid email structure.", vbCritical, "Validation Error" Exit Sub End If ' Split Name by spaces arrNameParts = Split(strName, " ") ' Output results to ListBox lstResults.AddItem "--- Name Analysis ---" For i = LBound(arrNameParts) To UBound(arrNameParts) Select Case i Case 0 lstResults.AddItem "First Name: " & arrNameParts(i) Case 1 If i = UBound(arrNameParts) Then lstResults.AddItem "Last Name: " & arrNameParts(i) Else lstResults.AddItem "Middle Name: " & arrNameParts(i) End If Case 2 lstResults.AddItem "Last Name: " & arrNameParts(i) Case Else lstResults.AddItem "Suffix/Extra: " & arrNameParts(i) End Select Next i lstResults.AddItem "" lstResults.AddItem "Validated Email: " & LCase(strEmail) End Sub Use code with caution. Exercise 2: File I/O and Dynamic Array Processing

' Exercise 1: Hello, World! Private Sub Command1_Click() MsgBox "Hello, World!", vbInformation, "My First Program" End Sub

with expected UI layout hints

A standard practical lab manual for VB6 generally covers the following progression: Visual Basic Lab Manual GOVERNMENT GIRLS POLYTECHNIC BILASPUR