Public Class FrmSvrInventar

    Private Sub FrmSvrInventar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CtrlServerInventar1.init(Me)
        Me.CtrlServerInventar1.Load()
    End Sub

    Private Sub TSBtnNew_Click(sender As Object, e As EventArgs) Handles TSBtnNew.Click
        Me.CtrlServerInventar1.Add_New()
    End Sub

    Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
        Me.CtrlServerInventar1.save()
    End Sub

    Private Sub TSBtnDelete_Click(sender As Object, e As EventArgs) Handles TSBtnDelete.Click
        Me.CtrlServerInventar1.delete()
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub
End Class