WAP to find length of entered text.
________________________________
Private Sub Command1_Click()
Dim a, b
a = Text1.Text
b = Len(a)
Label2.Caption = b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = "OUTPUT"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
___________________________________
OUTPUT
___________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment