Public Class frmMailClient Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click Me.Close() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub frmMailClient_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class