I want my tab to flow from txtGrade(0) to txtHours(0) to
txtGrade(1) to txtHours(1)...etc

The way I have tried obviously doesn't work - HELP! assignment due tomorrow!

Option Explicit

Private Sub cmdCalculate_Click()
picDisplay.Cls
Call ttlPts
picDisplay.Print "Have a merry vacation."
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub Form_Load()
Dim prompt As String
Dim title As String
Dim i As Integer
Dim Index As Integer
Dim Amt As Integer
picDisplay.AutoRedraw = True
title = "Number of Courses to Average"
prompt = "Enter number of courses to average the grade point"
Amt = InputBox(prompt, title)
i = 0
lblGrade(i).Caption = "Course # " & i + 1 & " Grade"
lblHours(i).Caption = "Credit Hours"
For i = 1 To Amt - 1
Load lblGrade(i)
Load txtGrade(i)
Load lblHours(i)
Load txtHours(i)
lblGrade(i).Top = lblGrade(i - 1).Top + lblGrade(0).Height
txtGrade(i).Top = txtGrade(i - 1).Top + txtGrade(0).Height
lblHours(i).Top = lblHours(i - 1).Top + lblHours(0).Height
txtHours(i).Top = txtHours(i - 1).Top + txtHours(0).Height
lblGrade(i).Visible = True
txtGrade(i).Visible = True
lblHours(i).Visible = True
txtHours(i).Visible = True
lblGrade(i).Caption = "Course #" & i + 1 & " Grade"
lblHours(i).Caption = "Credit Hours"
Next i
Call txtGrade_GotFocus(Index)
End Sub

Public Function GPA() As Single
Dim points As Single
Dim grade As String
Dim TotalPts As Integer
Dim counter As Integer
Dim i As Integer
counter = 0
points = 0
TotalPts = 0
For i = 0 To txtGrade.UBound
grade = UCase(txtGrade(i).Text)
Select Case grade
Case "A", "A+"
points = 4
Case "A-"
points = 3.8
Case "B+"
points = 3.3
Case "B"
points = 3
Case "B-"
points = 2.8
Case "C+"
points = 2.3
Case "C"
points = 2
Case "C-"
points = 1.8
Case "D+", "D", "D-"
points = 1
Case "F"
points = 0
Case Else
points = 0
End Select

TotalPts = points + TotalPts
Next i
GPA = TotalPts / i
End Function

Private Sub ttlPts()
Dim GrdPA As Single
GrdPA = GPA()
picDisplay.Print "Your Grade Point Average is "; GrdPA
If GrdPA >= 3 Then
picDisplay.Print "You have made the honor roll."
Else
picDisplay.Print " Congratulations on completing the semester."
End If
End Sub


Private Sub txtGrade_GotFocus(Index As Integer)
Dim i As Integer
i = Index
Select Case Index
Case 0
txtGrade(i).TabIndex = 0
txtHours(i).TabIndex = 1
Case 1
txtGrade(i).TabIndex = 2
txtHours(i).TabIndex = 3
Case 2
txtGrade(i).TabIndex = 4
txtHours(i).TabIndex = 5
Case 3
txtGrade(i).TabIndex = 6
txtHours(i).TabIndex = 7
Case 4
txtGrade(i).TabIndex = 8
txtHours(i).TabIndex = 9
Case 5
txtGrade(i).TabIndex = 10
txtHours(i).TabIndex = 11
Case 6
txtGrade(i).TabIndex = 12
txtHours(i).TabIndex = 13
End Select
End Sub