> 'Поместить PictureBox под элементами управления
> pictureBoxGameBoard.Top = _
> (answerButtons dy + dy betweenButtons) * 3 + _
> answerbuttons_beginY
> buttonAskQuestion.Top = 0
> buttonAskQuestion.Left = 174
> textBoxAskQuestion.Top = 0
>#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления
> Const answerbuttons_beginY As Integer = 174
> '------------------------------------------------------------
> 'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры
> '------------------------------------------------------------
> buttonShowAnswers_AdvancedVersion.Top = answerbuttons_beginY
> buttonShowAnswers_SimpleVersion.Top = answerbuttons_beginY
> '-----------------------------
> 'Задать набор вариантов ответа
> '-----------------------------
> 'Задать элемент управления, по которому будут выравниваться
> 'все остальные элементы управления
> buttonAnswer0.Top = answerbuttons_beginY
> pictureBoxGameBoard.Top = 0
> buttonAskQuestion.Top = answerbuttons_beginY
> buttonAskQuestion.Left = 174
>#End If
> buttonShowAnswers AdvancedVersion.Left = answerbuttons_beginX
> buttonShowAnswers_SimpleVersion.Left = _
> buttonShowAnswers_AdvancedVersion.Left + _
> answerButtons dx + dx_betweenButtons
> pictureBoxGameBoard.Left = 0
> pictureBoxGameBoard.Width = 240
> pictureBoxGameBoard.Height = 172
> buttonAnswer0.Left = answerbuttons_beginX
> buttonAnswer1.Left = buttonAnswer0.Left + answerButtons_dx + _
> dx_betweenButtons
> buttonAnswer1.Top = buttonAnswer0.Top
> 'Следующий ряд
> buttonAnswer2.Left = buttonAnswer0.Left
> buttonAnswer2.Top = buttonAnswer0.Top + answerButtons_dy + _
> dy_betweenButtons
> buttonAnswer3.Left = buttonAnswer2.Left + answerButtons_dx + _
> dx_betweenButtons
> buttonAnswer3.Top = buttonAnswer2.Top
> 'Следующий ряд
> buttonAnswer4.Left = buttonAnswer2.Left
> buttonAnswer4.Top = buttonAnswer2.Top + answerButtons_dy + _
> dy_betweenButtons
> buttonAnswer5.Left = buttonAnswer4.Left + answerButtons_dx + _
> dx_betweenButtons
> buttonAnswer5.Top = buttonAnswer4.Top
>End Sub
>'-----------------------------------------------------------------------
>'Вспомогательная функция, которая позволяет задавать состояние видимости
>'кнопок, отображающих ответы из словаря
>'-----------------------------------------------------------------------
>Private Sub SetAnswerButtonVisibility(ByVal visibleState _
> As Boolean)
> buttonAnswer0.Visible = visibleState
> buttonAnswer1.Visible = visibleState
> buttonAnswer2.Visible = visibleState
> buttonAnswer3.Visible = visibleState
> buttonAnswer4.Visible = visibleState
> buttonAnswer5.Visible = visibleState
>End Sub