how to make an exit button using vs code

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim frm As New Form1  
      frm.Show()            

      Me.Close()
 End Sub