Lista B

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X As Integer = txtv1.Text
        Dim Y As Integer = txtv2.Text
        For Cont As Integer = 0 To Y
            X *= X
        Next
        lblv1.Text = X
    End Sub
End Class