Public Class AddMachine Private Sub AddMachine_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub CancelButton_Click(sender As Object, e As EventArgs) Handles CancelButton.Click Me.Close() End Sub End Class