Private Sub btnquad_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnquad.Click
 
 
        Dim n As Integer
        n = CInt(TextBox1.Text)
        TextBox1.Text = CStr(Multizahl_me(n))
 
    End Sub
 
    Private Function Multizahl_me(ByVal n As Integer) As Integer
 
        n = n ^ 2
        Return n
 
    End Function

-----

-.-