Const MaxX = 35
Const MaxY = 41

Private Type Element
    v As String
    k As Integer
End Type
Private Type row
    C(MaxY) As Element
End Type
Dim R(MaxX) As row

Private Function LoadRow(i As row, l As String)
For k = 1 To MaxY + 1
i.C(k - 1).v = Right(Left(l, k), 1)
Next k
End Function

Private Sub Command1_Click()
For x = 0 To MaxX
For y = 0 To MaxY
R(x).C(y).k = 0
Next y
Next x

For x = 0 To MaxX
For y = 0 To MaxY

If R(x).C(y).v = Left(Text1.Text, 1) Then

found = True
For z = 0 To Len(Text1.Text) - 1
If x + z <= MaxX Then
If R(x + z).C(y).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x + z).C(y).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If y + z <= MaxY Then
If R(x).C(y + z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x).C(y + z).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If x + z <= MaxX And y + z <= MaxY Then
If R(x + z).C(y + z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x + z).C(y + z).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If x + z <= MaxX And y - z >= 0 Then
If R(x + z).C(y - z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x + z).C(y - z).k = 1
Next z
End If



found = True
For z = 0 To Len(Text1.Text) - 1
If x - z >= 0 Then
If R(x - z).C(y).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x - z).C(y).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If y - z >= 0 Then
If R(x).C(y - z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x).C(y - z).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If x - z >= 0 And y - z >= 0 Then
If R(x - z).C(y - z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x - z).C(y - z).k = 1
Next z
End If

found = True
For z = 0 To Len(Text1.Text) - 1
If x - z >= 0 And y + z <= MaxY Then
If R(x - z).C(y + z).v <> (Right(Left(Text1.Text, z + 1), 1)) Then
found = False
End If
Else
found = False
End If
Next z
If found = True Then
For z = 0 To Len(Text1.Text) - 1
R(x - z).C(y + z).k = 1
Next z
End If



End If


Next y
Next x
Draw
End Sub

Private Sub Form_Load()
LoadRow R(0), "                                     IETRI"
LoadRow R(1), "                                    PNLOEB"
LoadRow R(2), "                                   SSILADL"
LoadRow R(3), "                                  SFFILCT "
LoadRow R(4), "                                   WACIIHB"
LoadRow R(5), "                                   SNNGENI"
LoadRow R(6), "                                    EOLNEG"
LoadRow R(7), "                                     IHDLC"
LoadRow R(8), "                                  UAPTTCIR"
LoadRow R(9), "                               EEOSWLAUOGA"
LoadRow R(10), "                          RSHCSWSAESYMROTS"
LoadRow R(11), "        DM         NDNRBEAIOAEIMARESWOSNHH"
LoadRow R(12), "        WPRUFTSREHENILEROHSNWVBICDEIHTICTI"
LoadRow R(13), "      SNELLENSERFEAGBAEESTNFOBLSRELSOUNEBN"
LoadRow R(14), "   TETNEISSRHGORNLIHYGTHDOMRUROLIRENCARNEG"
LoadRow R(15), "  LFIHOSHKA NTNSSLATPRSPNTEOCAEAANNVFUGTAW"
LoadRow R(16), " AAIGOCOSCSALKAITASSENKRADSUNDERTOWENRERMA"
LoadRow R(17), "ESDRAZAHNEDDIHCEEMINHEFCIHCPMSIOESLYAWAREE"
LoadRow R(18), " RYDALEUCRICIELAWPGELFTNLOILEONSIIGNOEPAME"
LoadRow R(19), "  LASBBSKWAKGEOUSDNIW LDLHPISBLTRRUTUARTAS"
LoadRow R(20), "                                          "
LoadRow R(21), "                                          "
LoadRow R(22), "                                          "
LoadRow R(23), "                                          "
LoadRow R(24), "                                          "
LoadRow R(25), "                                          "
LoadRow R(26), "                                          "

Draw
End Sub

Public Function Draw()
For x = 0 To MaxX
For y = 0 To MaxY
If R(x).C(y).k = 1 Then
Picture1.ForeColor = vbGreen
Picture1.Line (x * 160, y * 160)-(x * 160, y * 160)
Picture1.Print R(x).C(y).v
Else
Picture1.ForeColor = vbBlack
Picture1.Line (x * 160, y * 160)-(x * 160, y * 160)
Picture1.Print R(x).C(y).v
End If
Next y
Next x
End Function

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1_Click
End If
End Sub