will be displayed in the DisplayTextBox when the DisplayButton is clicked. Private Sub DisplayButton-Click Handles Display:Button Click Dim number As Double 3 DoubleAndSquanetnumber) Display TextBox. Text CStrinumber) DoubleAndsiquaninumber End Sub Sub Double AndSquarefByRet num As Double) numtum num num End Sub