_____________________________________________________________
Dim a
Private Sub Command1_Click()
a = StrReverse(Text1.Text)
Label2.Caption = a
End Sub
Private Sub Command2_Click()
a = Replace(a, "a", "")
a = Replace(a, "A", "")
a = Replace(a, "e", "")
a = Replace(a, "E", "")
a = Replace(a, "i", "")
a = Replace(a, "I", "")
a = Replace(a, "o", "")
a = Replace(a, "O", "")
a = Replace(a, "u", "")
a = Replace(a, "U", "")
Label3.Caption = a
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
_______________________________________________________
OUTPUT
_______________________________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
saale output kaha pe hai.....
ReplyDelete