Pasar la información de un textbox a otro dentro de un mismo mismo

Public Class ejercicio3

Private Sub btmconvertir_Click(sender As Object, e As EventArgs) Handles btmconvertir.Click

Dim num, resultado As Integer
num = Txtnegativo1.Text
resultado = Math.Abs(num)
txtpositivo.Text = resultado
End Sub

Ese es mi código y necesito ayuda para que el textbox de abajo tenga la información de arriba

¿Cómo lo hago?