Private Sub sendMail(ByVal from As String, ByVal body As String)
        Dim MailServeName As String = "MYSERVER"
        Dim Message As MailMessage = New MailMessage(from, "EBB@transdyne.co.in", "Feedback", body)
        Dim MailClient As SmtpClient = New SmtpClient
        MailClient.Host = MailServeName
        MailClient.Send(Message)
        Message.Dispose()
    End Sub