Построить столбиковую и круговую диаграммы - VB

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

нужно написать код, чтобы по введенным данным строилась столбиковая и круговая диаграмма столбиковая диаграмма уже есть, все строится, но нужно чтобы в отдельном окне вводилось название переменных, название таблицы и переменных должно быть около 10. и ещё желательно нужна кнопка переключения между диаграммами вот начало программы ...

Dim x1, x2, x3, x4 As Integer
Dim z As Double
 
Private Sub Command1_Click()
Picture1.Cls
End Sub
 
Private Sub RezButton_Click()
x1 = CInt(Val(Text1.Text))
x2 = CInt(Val(Text2.Text))
x3 = CInt(Val(Text3.Text))
x4 = CInt(Val(Text4.Text))
'Нахождение общего кол-во оценок
 
z = CInt(x1 + x2 + x3 + x4)
If z = 0 Then
a = "Диаграмма"
MsgBox ("Введите корректные значения")
    Else
Picture1.Scale (0, z)-(6, 0)
Picture1.Line (1, 0)-(2, x1), vbRed, BF
Picture1.Line (2, 0)-(3, x2), vbGreen, BF
Picture1.Line (3, 0)-(4, x3), vbMagenta, BF
Picture1.Line (4, 0)-(5, x4), vbBlue, BF
 
Picture1.ForeColor = vbBlack
Picture1.FontBold = True
Picture1.FontSize = 10
 
Picture1.CurrentX = 1.1
Picture1.CurrentY = 3
Picture1.Print Int(x1 * 100 / z); "%"
Picture1.CurrentX = 2.1
Picture1.CurrentY = 3
Picture1.Print Int(x2 * 100 / z); "%"
Picture1.CurrentX = 3.1
Picture1.CurrentY = 3
Picture1.Print Int(x3 * 100 / z); "%"
Picture1.CurrentX = 4.1
Picture1.CurrentY = 3
Picture1.Print Int(x4 * 100 / z); "%"
 
Picture1.Line (1.4, z - 1.3)-(1.8, z - 2.3), vbRed, BF
Picture1.Line (1.4, z - 3.3)-(1.8, z - 4.3), vbGreen, BF
Picture1.Line (1.4, z - 5.3)-(1.8, z - 6.3), vbMagenta, BF
Picture1.Line (1.4, z - 7.3)-(1.8, z - 8.3), vbBlue, BF

Picture1.CurrentX = 2: Picture1.CurrentY = z - 1
Picture1.Print "- получено пятерок"
Picture1.CurrentX = 2: Picture1.CurrentY = z - 3
Picture1.Print "- получено четверок"
Picture1.CurrentX = 2: Picture1.CurrentY = z - 5
Picture1.Print "- получено троек"
Picture1.CurrentX = 2: Picture1.CurrentY = z - 7
Picture1.Print "- получено двоек"
End If
End Sub
 
Private Sub ExitButton_Click()
End
End Sub

Решение задачи: «Построить столбиковую и круговую диаграммы»

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

                            Private Sub ДИАГРАММА() 'построение диаграммы
On Error GoTo Error_Metka 'перехват ошибки работы программы без базы
Dim J As Byte ' переменная цикла
Dim Z As Byte ' текущий цвет QBColor(0 - 15)
Dim N As Integer ' внутренний радиус
Dim K As Integer ' внешний радиус
Dim A As Single ' переменная угла (рад)
Dim An As Single ' переменная угла (рад) начало текущего сегмента
Dim Ak As Single ' переменная угла (рад) конец текущего сегмента
Dim R As Single ' переменная номер рабочего
Dim Av As Single ' переменная угла вращения(рад)
 
With SVEDEN 'выбрать таблицу
    Cls ' очистить форму
    Select Case GR ' проверить состояние флага
        
    Case True 'если установлен
        Do
            Cls ' очистить форму
            
            For J = 1 To .Rows - 1 'по всем строкам таблицы
                .Col = 4 ' назначаем столбец
                .Row = J - 1 'назначаем строку
                .CellBackColor = QBColor(J) ' назначаем цвет ячейке
            Next J 'следующая строка
            
            N = 1000 ' внутренний диаметр диаграммы
            K = 5000 ' наружный диаметр диаграммы
            Z = 1 'первый цвет диаграммы
            
            For R = 1 To UBound(Mz) ' по всему списку рабочих цеха
                Ak = An + Mz(R) * 2 * Pi / SUM 'вычисляем текущий угол  пропорционально зарплате
                
                For A = An To Ak Step 0.01 ''от предыдущего до текущего с шагом 0.01
                    Line (N * Sin(A), N * Cos(A))-(K * Sin(A), K * Cos(A)), QBColor(Z)     ' приводим линии
                Next A 'следующий угол
                
                Me.CurrentX = (K - N) * Sin(An) 'устанавливаем координату X надписи
                Me.CurrentY = (K - N) * Cos(An) 'устанавливаем координату Y надписи
                Print SVEDEN.TextMatrix(R - 1, 2) 'печатаем фамилию
                An = Ak 'запоминаем значение угла
                Z = Z + 1 'следующий цвет
            Next R 'следующий рабочий цеха
            
            DoEvents
            
            Av = Av + 0.01 'наращиваем угол поворота
            An = Av 'назначаем начальный угол
        Loop While Вращать.Value = 1
    
    Case False 'если флаг не установлен
        For J = 1 To .Rows - 1 'по всем строкам таблицы
            .Col = 4 ' назначаем столбец
            .Row = J - 1 'назначаем строку
            .CellBackColor = .BackColor 'назначаем исходный цвет исходный цвет
        Next J 'следующая строка
Error_Metka:         '
    End Select 'конец выбрать
End With 'выход из выбрать таблицу
End Sub
                        