مبتدی: تعریف اشیا

سلام
من مدتی هست که کد ننوشتم و مباحث شی ء گرایی رو فراموش کردم. الان یک کد خیلی ساده برای شروع نوشتم اما موقع اجرا چیزی اجرا نمیشه.
میشه بگید اشکال کجاس؟

ublic Class library Private Name_Book As String
Private Subject_book As String
Private Id_book As Integer
Private Count As Integer = 5
Private Capacity As Integer
Public Sub Insert()
Count += 1
If Capacity > 10 Then
Label1.Text = "full"
Count -= 1
Else
Label1.Text = "insert is done"
Label2.Text = Count
End If
End Sub
Public Sub library_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnInsert_Click(sender As Object, e As EventArgs) Handles BtnInsert.Click
Dim libr As New library
libr.Insert()
End Sub
End Class