multiple_inheritance

Public Class Form1
    Public ad1 As ADDR
    Public n As name1

    Public m2 As markss
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim obj As New submit
        n = obj.name()
        ad1 = obj.add()
        m2 = obj.marks()
        RichTextBox1.Text = n.fn + "  " + n.ln
        RichTextBox2.Text = ad1.city + ", " + ad1.state + ",PIN: " + ad1.pin



        TextBox3.Text = m2.c
        TextBox4.Text = m2.vb
        TextBox5.Text = m2.total


    End Sub
End Class

Public Interface name
    Function execute() As name1
End Interface
Public Interface add
    Function execute() As ADDR
End Interface
Public Interface marks
    Function execute() As markss
End Interface

Public Structure markss
    Public vb As Integer
    Public c As Integer
    Public total As Integer
End Structure
Public Structure name1
    Public fn, ln As String

End Structure

Public Structure ADDR
    Public pin, city, state As String
End Structure

Public Class submit

    Implements name, add, marks
    Public nameis, addis As String
    Public ad As ADDR
    Public nam As name1
    Public m_vb, m_c, m_total As Integer
    Public m() As Integer
    Public m1 As markss
    Public Function name() As name1 Implements name.execute
        nam.fn = InputBox("enter Student's first name")
        nam.ln = InputBox("enter Student's last name")

        Return nam
    End Function
    Public Function add() As ADDR Implements add.execute
        ad.city = InputBox("CITY")
        ad.state = InputBox("STATE ")
        ad.pin = InputBox("PIN-CODE")
        Return ad
    End Function
    Public Function marks() As markss Implements marks.execute
        m_c = InputBox("ENTER MARKS OF C#")
        m_vb = InputBox("ENTER MARKS OF VB.NET")
        m_total = m_c + m_vb
        m1.c = m_c
        m1.vb = m_vb
        m1.total = m_total
        Return m1
    End Function


End Class