Следующее слово «тесла», которое содержит тоже одно пересечение с другим словом

 

 

		а
г	е	р	ц
		х
		и
		м
	т	е	с	л	а
		д

 

		1
2	3	4	5
		6
		7
		8
	9	10	11	12	13
		14

 

 

Алгоритм примерно такой же, только букв (и боксов) не 4 а 5

 

Посмотрите код и все поймете:

 

'3 по горизонтали «тесла»

 

If (TextBox9.Text = "т") And (TextBox10.Text = "е") And (TextBox11.Text = "с") And (TextBox12.Text = "л") And (TextBox13.Text = "а")  Then

TextBox9.BackColor = RGB(0, 255, 255)

TextBox10.BackColor = RGB(0, 255, 255)

TextBox11.BackColor = RGB(0, 255, 255)

TextBox12.BackColor = RGB(0, 255, 255)

TextBox13.BackColor = RGB(0, 255, 255)

 

Else

If (TextBox8.Text = "м") Then

TextBox9.Text = ""

TextBox11.Text = ""

TextBox12.Text = ""

TextBox13.Text = ""

 

Else

TextBox9.Text = ""

TextBox10.Text = ""

TextBox11.Text = ""

TextBox12.Text = ""

TextBox13.Text = ""

 

End If

End If

 

Конечно, снова набирать код нет смысла (тогда нам понадобится не 6,а 26 часовJ), просто выделяем текст для слова «герц», копируем, затем вставляем ниже и подкорректируем по слову «тесла» и номерам ячеек