Перевод из VB в С++

Option Strict On
Option Explicit On
Imports System.Math
Public Class Form2
    Function vvod(ByVal T As TextBox) As Double
        Return Val(T.Text)
    End Function
 
    Sub work(ByVal a0 As Double, ByVal eps As Double, ByRef L_1 As ListBox)
        Dim a1 As Double
        Dim n As Integer
        Dim z As String
        z = " "
 
        Do Until a1 < eps
            a1 = 1 / (2 + a0)
            z = Space(8) + Format(n, "0") + Space(10) + Format(a1, "0.00000") + Space(10) + Format(a0, "0.00")
            L_1.Items.Add(z)
            a0 = a1
            n = n + 1
        Loop
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a0 As Double
        Dim eps As Double
        a0 = vvod(TextBox2)
        eps = vvod(TextBox1)
        work(a0, eps, L_1)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
        TextBox3.Clear()
        TextBox2.Clear()
        L_1.Items.Clear()
    End Sub