All pastes #814822 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-12-13 16:03 UTC
rendered paste body
        Dim intNumber As Integer
        Dim sngSqrRoot As Single
        intNumber = Val(Me.NumberTextBox.Text)
        Me.NumberTextBox.Text = intNumber
        sngSqrRoot = Val(Me.SquareRootLabel.Text)
        sngSqrRoot = Math.Sqrt(intNumber)
        Me.SquareRootLabel.Text = sngSqrRoot