Source code for VB6.0 program to Student details and find Total Marks?

Source code for VB6.0 program to Student details and find Total Marks

 Set  7 Label, 6 Textbox , Command button  and write caption like as :-

 



Private Sub Command1_Click()
Text6.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
End Sub

Private Sub Form_Load()
Label1.Font = "Times New Roman"
Label1.FontBold = True
Label1.FontSize = 30
Label2.Font = "Times New Roman"
Label2.FontSize = 20
Label3.Font = "Times New Roman"
Label3.FontSize = 20
Label4.Font = "Times New Roman"
Label4.FontSize = 20
Label5.Font = "Times New Roman"
Label5.FontSize = 20
Label6.Font = "Times New Roman"
Label6.FontSize = 20
Label7.Font = "Times New Roman"
Label7.FontSize = 20
Command1.Font = "Times New Roman"
Command1.FontSize = 10
Text1.Font = "Times New Roman"
Text1.FontSize = 20
Text2.Font = "Times New Roman"
Text2.FontSize = 20
Text3.Font = "Times New Roman"
Text3.FontSize = 20
Text4.Font = "Times New Roman"
Text4.FontSize = 20
Text5.Font = "Times New Roman"
Text5.FontSize = 20
Text6.Font = "Times New Roman"
Text6.FontSize = 20
End Sub