Public Class Form1

    Dim ole As New Person
    Dim lise As New Person

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

        ole.hoyde = 1.8
        ole.vekt = 85

        lise.hoyde = 1.65
        lise.vekt = 60

        MsgBox("Ole sin BMI er: " & ole.finnBMI() & vbCrLf &
               "Lise sin BMI er: " & lise.finnBMI())

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ole.navn = "Ole Hansen"
        lise.navn = "Lise Karlsnes"
    End Sub
End Class

Public Class Person

    ' Variablene er synlige i hele programmet
    Public navn As String
    Public vekt As Double
    Public hoyde As Double

    ' Metoden er synlig i hele programmet
    Public Function finnBMI()

        Dim bmi As Double
        bmi = vekt / (hoyde * hoyde)
        Return bmi

    End Function

End Class

Mulighet 2

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Lise As New Person
        Dim Ole As New Person

        Ole.lagreInfo("Ole Steinmann", 1.92, 83)


        Lise.lagreInfo("Lise Heinstad", 170, 62)


        MsgBox(Ole.finnBMI())
        MsgBox(Lise.finnBMI())
    End Sub
End Class

Public Class Person
    Private navn As String
    Private vekt As Double
    Private hoyde As Double


    Public Sub lagreInfo(ByVal navn As String, ByVal cm As Double, ByVal kg As Double)
        vekt = kg
        hoyde = cm
        Me.navn = navn
        If cm < 10 Then
            Me.hoyde = hoyde * 100
        Else
            Me.hoyde = hoyde
        End If
    End Sub
    Public Function hentNavn() As String
        Return navn
    End Function
    Public Function hentVekt() As Double
        Return vekt
    End Function

    Public Function hentHoyde() As Double
        Return hoyde
    End Function

    Public Function finnBMI() As Double
        Dim svar As Double
        Dim meter As Double

        meter = hoyde / 100
        svar = vekt / (meter * meter)

        Return svar
    End Function

End Class