>'========================================================================
>Private Sub SetStartControlPositionAndState()
> pictureBoxGameBoard.Width = 240
> pictureBoxGameBoard.Height = 176
> 'Установить размеры кнопок множественного выбора вариантов ответов
> Const answerButtons_dx As Integer = 117
> Const answerButtons_dy As Integer = 18
> buttonAnswer0.Width = answerButtons_dx
> buttonAnswer0.Height = answerButtons_dy
> buttonAnswer1.Size = buttonAnswer0.Size
> buttonAnswer2.Size = buttonAnswer0.Size
> buttonAnswer3.Size = buttonAnswer0.Size
> buttonAnswer4.Size = buttonAnswer0.Size
> buttonAnswer5.Size = buttonAnswer0.Size
> buttonShowAnswers_AdvancedVersion.Width = answerButtons_dx
> buttonShowAnswers_AdvancedVersion.Height = 24
> buttonShowAnswers_SimpleVersion.Size = _
> buttonShowAnswers_AdvancedVersion.Size
> 'Расстояние (в пикселях) между соседними кнопками
> Const dx_betweenButtons As Integer = 3
> Const dy betweenButtons As Integer = 2
> Const answerbuttons_beginX As Integer = 3
> 'Создать задний план для нашего изображения, чтобы мы видели
> 'его в процессе тестирования
> Dim gameBoard As System.Drawing.Bitmap
> gameBoard = New System.Drawing.Bitmap( _
> pictureBoxGameBoard.Width, pictureBoxGameBoard.Height)
> Dim gameboard_gfx As System.Drawing.Graphics
> gameboard_gfx = System.Drawing.Graphics.FromImage(gameBoard)
> gameboard_gfx.Clear(System.Drawing.Color.Yellow)
> Dim myPen As System.Drawing.Pen = New System.Drawing.Pen( _
> System.Drawing.Color.Blue)
> gameboard_gfx.DrawRectangle(myPen, 2, 2, _
> gameBoard.Width - 4, gameBoard.Height - 6)
> myPen.Dispose()
> gameboard_gfx.Dispose()
> pictureBoxGameBoard.Image = gameBoard
> 'Разместить текстовое окно, в котором содержатся задаваемые вопросы,
> 'а также подробные ответы для пользователей
> textBoxAskQuestion.Left = 0
> textBoxAskQuestion.Width = 240
> buttonAskQuestion.Width = 64
> buttonAskQuestion.Height = 20
>#If PLAYFIELD_ON_BOTTOM <> 0 Then 'ПОЛЕ ИГРЫ располагается под ПИ
> Const answerbuttons_beginY As Integer = 42
> Const showanswers_beginY As Integer = 77
> '------------------------------------------------------------
> 'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры
> '------------------------------------------------------------
> buttonShowAnswers_AdvancedVersion.Top = showanswers_beginY
> buttonShowAnswers_SimpleVersion.Top = showanswers_beginY
> '------------------------------
> 'Задать набор вариантов ответов
> '------------------------------
> 'Задать элемент управления, по которому будут выравниваться
> 'все остальные элементы управления
> buttonAnswer0.Top = answerbuttons_beginY