Выполните форматный вывод значений переменной на форму, в окно TextBox - VB

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

Используя ранее созданный проект, выполните форматный вывод значений переменной на форму, в окно TextBox. PictureBox сделал, но текст бокс не получается. Помогите, пожалуйста!

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
X = Text1 / Text2
Picture1.Cls
Picture2.Cls
Picture3.Cls
 
Picture1.Print X
Picture1.Print Format(X, "000.000")
Picture1.Print Format(X, "0.000")
Picture1.Print Format(X, "###.###")
 
Picture1.Print Format(X, "SCIENTIFIC")
 
Picture2.Print "Формат не задан"
Picture2.Print "000.000"
Picture2.Print "0.000"
Picture2.Print "###.###"
 
Picture2.Print "SCIENTIFIC"
 
Picture3.Print "Без форматирования"
Picture3.Print "Отсутствующие цифры заменяются нулями по заданной маске"
Picture3.Print ""
Picture3.Print "При отсутствии цифр ничего не отображается"
Picture3.Print "Используется стандартное экспоненциальное представление числа"
End Sub
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Выполните форматный вывод значений переменной на форму, в окно TextBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim a As Double, b As Double, c As Double, d As Double, t1 As Double, t2 As Double, x1 As Double, x2 As Double
    a = CDbl(Text1)
    b = CDbl(Text2)
    c = CDbl(Text3)
    Picture1.Cls
    d = b ^ 2 - 4 * a * c
    Picture1.Print "Дискриминант ="; d
    Select Case d
        Case Is < 0
            t1 = -b / 2 * a
            t2 = Sqr(-d) / 2 * a
            Picture1.Print
            Picture1.Print "X1="; Round(t1, 6) & "+" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
            Picture1.Print "X2="; Round(t1, 6) & "-" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
        Case Is = 0
            x1 = -b / (2 * a)
            Picture1.Print
            Picture1.Print "X1=X2="; Round(x1, 4)
        Case Else
            x1 = (-b + Sqr(d)) / (2 * a)
            x2 = (-b - Sqr(d)) / (2 * a)
            Picture1.Print
            Picture1.Print "X1="; Round(x1, 6)
            Picture1.Print "X2="; Round(x2, 6)
    End Select
End Sub