Public Class Form1
Private Sub limitTexBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limitTextBox.TextChanged

End Sub

Private Sub powertextbox_ItemsChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub displaytablebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displaytablebutton.Click
Dim n As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim limit As Integer

n = limitTextBox.Text
n2 = 0
n3 = 0
limit = 1
powertextbox.Items.Add("n n2 n3")

Do While limit <= n
n2 = limit ^ 2
n3 = limit ^ 3
limit = 1
powertextbox.Items.Add(" " & limit & " " & n2 & " " & n3)

Loop
End Sub