Прорисовать СНЕГи БЕГ, переключателями - VB

Формулировка задачи:

Здравствуйте! Помогите, пожалуйста. Возникло чувство досады, неужели, думаю про себя — сам такой тупой! Есть задача, ниже — посмотрел в Интернете, но примеров не встретил. Образец от

SoftIce

Как прорисовать? — мне нисколько не помогает, он также пытается скрыть великую российскую тайну обучения.

3. 1. Создайте проект, на котором два переключателя, один прорисовывает слово СНЕГ, а другой БЕГ.

Не по теме:

По мне: если за 3-4 часа поиска ничего путного не встретил в Интернете, то надо сразу проламывать башку преподам — как бессовестным ханыгам и побирушкам, дающим такие задания. Это ведь заведомое вымогательство, а не учёба.

Решение задачи: «Прорисовать СНЕГи БЕГ, переключателями»

textual
                            Листинг программы 
                        

                            ERSION 5.00
Begin VB.Form Form13 
   Caption         =   "Form13"
   ClientHeight    =   5550
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   9165
   LinkTopic       =   "Form1"
   ScaleHeight     =   5550
   ScaleWidth      =   9165
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton Option2 
      Caption         =   "Option2"
      Height          =   375
      Index           =   1
      Left            =   7680
      TabIndex        =   2
      Top             =   5040
      Width           =   1095
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      Height          =   375
      Index           =   0
      Left            =   480
      TabIndex        =   1
      Top             =   5040
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   400
      Left            =   6600
      TabIndex        =   0
      Top             =   120
      Width           =   2295
   End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
 
Option Explicit
Private Sub Option1_Click(Index As Integer)
    Draw Index
End Sub
 
Sub Draw(ByVal n As Integer)
    Cls
    Me.AutoRedraw = True: Me.Scale (0, 20)-(60, -20): Me.DrawWidth = 10: Me.ForeColor = vbBlue
 
    Select Case n
       Case 0
          Circle (10, 0), 10, , 1.2, 5, 1.5
          Line (15, -13)-(15, 13): Line (25, -13)-(25, 13): Line (15, 0)-(25, 0)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
       Case 1
          Circle (18, -4), 7.3, , 4.4, 1.9, 1.1: Line (15, 13)-(25, 13): Line (15, -13)-(15, 13)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
    End Select
End Sub
                        