[Ajwad]

Private Sub Command1_Click()
Dim no As Integer

No = Val(Text1.Text)
Picture1.Cls
Picture1.Print no^2
End Sub


can any one tell me the function of this by line

Private Sub Command1_Click() - ???
Dim no As Integer - ???
No = Val(Text1.Text) - ???
Picture1.Cls - ???
Picture1.Print no^2 - ???
End Sub - ??

[Insomniac]

If im reading it correctly its VB to start and this is what happens when command1 gets clicked by the user.

Dim no As Integer creates an integer value called no

No = Val(Text1.Text) shouldnt actually work unless there is a variable declared elsewhere called No, if it were no however it was said it to the value of whatever is in text1 (a textbox) and in case its non number it is type cast to a number

picture1.Cls - clears picture one

picture1.Print no^2 rights the value of the user entered number to the power of 2 on the picture

end sub ends the little routine so anything after the line is not part of what happens when command 1 is clicked

[Ajwad]

thanks man!!