Visual Basic

Imports System.IO
Imports System.Drawing
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    ' Windows Form Designer code not included...
 
    Private myImage As myImageClass
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myImage = New myImageClass
        myImage.Path = "D:\Pepper.JPG"
        BindFields()
    End Sub
 
    Private Sub BindFields()
        Try
            Dim b As Binding = New Binding("Image", myImage, "Path")
            AddHandler b.Format, AddressOf MyPictureBox_FormatImage
            PictureBox1.DataBindings.Add(b)
        Catch ex As Exception
            MsgBox(ex.Message, , "BindFields")
        End Try
    End Sub
 
    Private Sub MyPictureBox_FormatImage(ByVal sender As Object, ByVal e As ConvertEventArgs)
        Try
            ' Check to see if this is a valid conversion.
            If Not e.DesiredType Is GetType(Image) Then
                MsgBox("FormatImage was called with the DesiredType of " & _
                    e.DesiredType.ToString, , "MyPictureBox_FormatImage")
                Exit Sub
            End If
            ' Check if the file exists (assumes "Imports System.IO").
            ' Uses the Static version of the Exists method.
            Try
                If Not File.Exists(e.Value.ToString) Then
                    MsgBox("File not found: " & e.Value.ToString, , "MyPictureBox_FormatImage")
                    Exit Sub
                Else
                    ' The file exists, try to create an Image object out of it.
                    e.Value = Image.FromFile(e.Value.ToString)
                End If
            Catch
            End Try
        Catch ex As Exception
            MsgBox(ex.Message, , "MyPictureBox_FormatImage")
        End Try
    End Sub
End Class
 
Public Class myImageClass
    Private m_Path As String = ""
 
    Public Property Path() As String
        Get
            Return m_Path
        End Get
        Set(ByVal Value As String)
            m_Path = Value
        End Set
    End Property
End Class

Private Sub MyPictureBox_FormatImage(ByVal sender As Object, ByVal e As ConvertEventArgs)
Try
' Check to see if this is a valid conversion.
If Not e.DesiredType Is GetType(Image) Then
MsgBox("FormatImage was called with the DesiredType of " & _

... then step into "oFrmBookDetails.Show()". 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
    Dim objEmailMessage As System.Web.Mail.MailMessage
    Dim objSMTPServer As System.Web.Mail.SmtpMail
    objSMTPServer.SmtpServer = "smtp.myISP.com"
 
    objEmailMessage = New System.Web.Mail.MailMessage
    With objEmailMessage
        .To = "destinationemail@address.com"
        .From = txtFrom.Text
        .Subject = "Great Job!"
        .Body = "Want all my money?"
    End With
 
    objSMTPServer.Send(objEmailMessage)
    Catch exc as exception
        Response.Write(exc.InnerException.InnerException.Message)
    End Try
End Sub