Visual Basic

If Control.ModifierKeys = Keys.ControlKey Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If<br />
        If Control.ModifierKeys = Keys.Alt Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If<br />
        If Control.ModifierKeys = Keys.Control Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If<br />
        If Control.ModifierKeys = Keys.Escape Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If<br />
        If Control.ModifierKeys = Keys.RWin Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If<br />
        If Control.ModifierKeys = Keys.LWin Then<br />
            e.Handled = True<br />
            Microsoft.VisualBasic.Interaction.Beep()<br />
        End If

imports system.collections
imports system.componentmodel
imports system.data
imports system.drawing
imports system.web
imports system.web.sessionstate
imports system.web.ui
imports system.web.ui.webcontrols
imports system.web.ui.htmlcontrols
imports system.web.mail
imports system.configuration


Private Sub btnsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsend.Click
Server.ScriptTimeout = 1000

Response.Flush()

Dim smtp As SmtpMail

smtp.SmtpServer = "localhost"

Dim mail As MailMessage

mail = New MailMessage

mail.To = txtto.Text

mail.From = txtfrom.Text

mail.Cc = txtcc.Text

mail.Bcc = txtbcc.Text

mail.Subject = txtsubject.Text

mail.Body = txtbody.Text

Try

smtp.Send(mail)

MsgBox("The Mail Has Been Send Successfully")

Catch ex As Exception

MsgBox("Error: " & ex.Message)

End Try

Response.Flush()

End Sub