VB class

Public Class Form1

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

        Dim f1 As fp = New fp()
        Dim n As Integer

        n = f1.g2(100)



        MsgBox(n)


    End Sub

    Class f

        Function g2(ByVal x As Integer)
            Dim b As Integer
            b = x * 2 + 5
            Return b
        End Function



        Function g(ByVal x As Integer)
            Dim b As Integer
            b = x * 2
            Return b
        End Function

    End Class


    Class fp

        Function g2(ByVal x As Integer)
            Dim b As Integer
            b = x * 2 + 5
            Return b
        End Function



        Function g(ByVal x As Integer)
            Dim b As Integer
            b = x * 2
            Return b
        End Function

    End Class




End Class