Yep...that worked. For whatever reason I had it in my head that marking something as being "checked" only worked for an actual check box...and that I had to enable anything else. Thank you! *walks away embarrassed* lol

jimmyBo, on 06 November 2011 - 07:09 PM, said:

Yeah but still, I can see why it's a good idea. It would probably show up in the "view source" option, so if someone did a copy/paste they would carry it with them and run into more problems. Makes sense.

Hah, well I guess using bold tags inside the code tags doesn't work. Only after staring at it in confusion do I suddenly realize why that's such a good idea. Anyway, the line getting highlighted is

picResult.Print britword(i)

Well after changing a few things, I'm not getting "Subscript out of range." The line that is getting highlighted is in bold below.

Dim amerword(1 To 12) As String
Dim britword(1 To 12) As String

Private Sub Command1_Click()

Dim search As String, result As String, i As Integer
Call GetWord(search)
Call FindWord(search, result)
picResult.Cls

If result > 0 Then
    Call ShowWords(i)
Else
    picResult.Print search & " not in file."
End If

End Sub

Private Sub Form_Load()

Dim i As Integer
Open "c:\users\michael\downloads\csc150\words.txt" For Input As #1
For i = 1 To 12
    Input #1, amerword(i), britword(i)
Next i
Close #1
End Sub

Private Sub ShowWords(i As Integer)
picResult.Print "The British Equivalent is"
[b]picResult.Print britword(i)[/b]

End Sub

Private Sub GetWord(search As String)
search = UCase(Trim(txtWord.Text))
End Sub

Private Sub FindWord(search As String, result As String)

Dim first As Integer, middle As Integer, last As Integer
Dim foundFlag As Boolean
    first = 1
    last = 12
    foundFlag = False
Do While (first <= last) And (Not foundFlag)
    middle = Int((first + last) / 2)
Select Case UCase(amerword(middle))
Case search
    foundFlag = True
Case Is > search
    last = middle - 1
Case Is < search
    first = middle + 1
End Select
Loop
    If foundFlag Then
    result = middle
Else
    result = 0
End If

End Sub

Eh...that should be now getting "Subscript out of range." Sorry.

Here's mine. Not much interesting, but I've loved that picture for awhile.