Public Class Main
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = "Benvenuto"
End Sub

Private Sub Insert_Sell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert_Sell.Click
    Dim Ins As New INS_Sell()
    Ins.Show()
    Me.Close()
End Sub

Private Sub LGOUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LGOUT.Click
    Application.Exit()
End Sub

Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View.Click
    Dim Mov As New Mag_Data()
    Mov.Show()
End Sub

Private Sub Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Del.Click
    Dim Tool As New SQLTools()
    Tool.Delete("Movimento")
End Sub

Private Sub ViewCron_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewCron.Click
    Dim Chrono As New Chrono_Data()
    Chrono.Show()
End Sub

Private Sub Insert_Buy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert_Buy.Click
    Dim Ins As New INS_Buy()
    Ins.Show()
    Me.Close()
End Sub
End Class