Class and Object

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Create instance of class
Dim mycar As New Car()
'Using properties
mycar.Make = "Subaru"
mycar.Model = "Outback"
mycar.ElapsedMileage = "59000"
'Calling properties
MessageBox.Show(mycar.Make)
MessageBox.Show(mycar.ElapsedMileage)
'Calling a method
MessageBox.Show(mycar.Drive(250))
'Create instance of class using Inherits
Dim mytruck As New truck()
'Using properties of new class
mytruck.Make = "Mazda"
mytruck.Model = "B4000"
mytruck.ElapsedMileage = "40000"
'Calling properties of new class
MessageBox.Show(mytruck.Make)
MessageBox.Show(mytruck.ElapsedMileage)
'Calling a method of new class
MessageBox.Show(mytruck.Drive(250))
End Sub
End Class

I added a new item (class) so it had its own page (tab)

Public Class Car
' Fields
Private m_make As String
Private m_model As String
Private m_elapsedMileage As String

'Properties
Public Property Make()
Get
Return m_make
End Get
Set(ByVal value)
m_make = value
End Set
End Property
Public Property Model()
Get
Return m_model
End Get
Set(ByVal value)
m_model = value
End Set
End Property
Public Property ElapsedMileage()
Get
Return m_elapsedMileage
End Get
Set(ByVal value)
m_elapsedMileage = value
End Set
End Property

' Method
Public Function Drive(ByVal miles As Integer) As String
m_elapsedMileage += miles
Dim result As String
result = "The " & m_make & " " & m_model & " now has " & m_elapsedMileage & " miles after the trip."
Return result
End Function
End Class

Public Class truck
Inherits Car
End Class