WAP to show your personal profile on the form.
_______________________________________
Dim a, b, c, d, e, f, g
Private Sub Command1_Click()
a = InputBox("Enter Your Name:")
b = InputBox("Enter Your Fathers Name:")
c = InputBox("Enter Your Department Name:")
d = InputBox("Enter Your Roll No. :")
e = InputBox("Enter Your Session:")
f = InputBox("Enter Your Address:")
g = InputBox("Enter Your Phone No. :")
End Sub
Private Sub Command2_Click()
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
Text7.Text = g
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