Fibonacci Tribonacci создание dll

Public Class fibtrib
 
 
    Private Sub btnFib_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFib.Click
        Dim a As Integer = 0
        Dim b As Integer = 1
        Dim fib As Integer = 0
        Dim KontrolNothing As Integer = 1000000 'максимальное число в цикле
 
        'если пользователь не ввёл Х1 прога выводит начиная с первого числа
        If txtVahemik1.Text = Nothing Then
            txtVahemik1.Text = 0
            txtVahemik1.Visible = False
        End If
 
        'если пользователь не ввёл Х2 прога выводит начиная с первого числа
        If txtVahemik2.Text = Nothing Then
            txtVahemik2.Text = KontrolNothing
            txtVahemik2.Visible = False
        End If
 
        Label1.Text = "" 'очищаем поле вывода
        Label1.Text = Label1.Text + a.ToString & ControlChars.NewLine 'вывод аргумента 'а'
 
        'то же самое для трибоначчи
        Do
            Label1.Text = Label1.Text + b.ToString & ControlChars.NewLine 'вывод аргумента 'b' 
 
            'проверка с какого Х1 прога начинает выводить числа
            If fib < txtVahemik1.Text Then
                Label1.Text = ""
            End If
 
            'цикл фибоначчи
            fib = a + b
            a = b
            b = fib
 
        Loop While b < KontrolNothing And b <= txtVahemik2.Text 'цикл работает до тех пор пока выводимое число фибоначчи не превысило 1 000 000 или пока не превысило значения Х2
 
        'очистка Х1 и Х2
        txtVahemik1.Text = ""
        txtVahemik1.Visible = True
        txtVahemik2.Text = ""
        txtVahemik2.Visible = True
    End Sub
 
    Private Sub btnTrib_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTrib.Click
        Dim a As Integer = 0
        Dim b As Integer = 0
        Dim c As Integer = 1
        Dim trib As Integer = 0
        Dim KontrolNothing As Integer = 1000000
 
        
        If txtVahemik1.Text = Nothing Then
            txtVahemik1.Text = 0
            txtVahemik1.Visible = False
        End If
 
       
        If txtVahemik2.Text = Nothing Then
            txtVahemik2.Text = KontrolNothing
            txtVahemik2.Visible = False
        End If
 
        Label2.Text = "" 
        Label2.Text = Label2.Text + a.ToString & ControlChars.NewLine 
        Label2.Text = Label2.Text + b.ToString & ControlChars.NewLine 
 
        
        Do
            Label2.Text = Label2.Text + c.ToString & ControlChars.NewLine 
 
            
            If trib < txtVahemik1.Text Then
                Label2.Text = ""
            End If
 
            
            trib = a + b + c
            a = b
            b = c
            c = trib
 
        Loop While c < KontrolNothing And c <= txtVahemik2.Text 
 
        
        txtVahemik1.Text = ""
        txtVahemik1.Visible = True
        txtVahemik2.Text = ""
        txtVahemik2.Visible = True
    End Sub
End Class