Visual Basic

<br />
<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
  Dim LocationOfOsamaBinladen as string<br />
  Dim OsamaBinladensPasswordToBankAccount as string<br />
<br />
  LocationOfOsamaBinladen = FindOsamaBinLaden(try-hard)<br />
  OsamaBinladensPasswordToBankAccount = GetOsamaBinLardensPassword(try-even-harder)<br />
<br />
  SendPasswordTo("KiloDunse**DK**")<br />
  SendLocationTO("U.S Goverment")<br />
<br />
End Sub<br />
<br />
<br />
Private Function FindOsamaBinLaden(level-of-commitment) as String<br />
  ...<br />
End Function<br />
<br />
Private Function GetOsamaBinLardensPassword(level-of-commitment) as String<br />
  ...<br />
End Function<br />

SmtpMail.SmtpServer = "smtp.net4india.com"<br />
SmtpMail.Send(myMessage)

<br />
Imports System.Drawing.Imaging<br />
Imports System.IO<br />
<br />
Public Class Form1<br />
<br />
    Public JpegStream As MemoryStream<br />
    Public myImageCodecInfo As ImageCodecInfo = GetEncoderInfo("image/jpeg")<br />
    Public myEncoder As Encoder<br />
    Public myEncoderParameter As EncoderParameter<br />
    Public myEncoderParameters As EncoderParameters<br />
<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Dim filename As String = "C:\test.jpg"<br />
        Dim Bmp = New Bitmap(filename)<br />
        JpegStream = Nothing<br />
        JpegStream = New MemoryStream<br />
       <br />
        Bmp.Save(JpegStream, myImageCodecInfo, myEncoderParameters)<br />
        ' Image is now in MemoryStream<br />
    End Sub<br />
<br />
    Private Function GetEncoderInfo(ByVal MYmimeType As String) As ImageCodecInfo<br />
        Dim i As Integer<br />
        Dim encoders As System.Drawing.Imaging.ImageCodecInfo() = Imaging.ImageCodecInfo.GetImageEncoders()<br />
        For i = 0 To (encoders.Length - 1)<br />
            If (encoders(i).MimeType = MYmimeType) Then<br />
                GetEncoderInfo = encoders(i)<br />
            End If<br />
        Next i<br />
    End Function<br />
<br />
End Class<br />
<br />