Visual Basic

Case 1
    form2.PictureBox1.Image.Save(fs, _
       System.Drawing.Imaging.ImageFormat.Jpeg)

Dim saveFileDialog1 As New SaveFileDialog()
     saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
     saveFileDialog1.Title = "Save an Image File"
     saveFileDialog1.ShowDialog()

     ' If the file name is not an empty string open it for saving.
     If saveFileDialog1.FileName <> "" Then
         ' Saves the Image via a FileStream created by the OpenFile method.
         Dim fs As System.IO.FileStream = CType _
            (saveFileDialog1.OpenFile(), System.IO.FileStream)
         ' Saves the Image in the appropriate ImageFormat based upon the
         ' file type selected in the dialog box.
         ' NOTE that the FilterIndex property is one-based.
         Select Case saveFileDialog1.FilterIndex
             Case 1
                 form2.PictureBox1.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Jpeg)

             Case 2
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Bmp)

             Case 3
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Gif)
         End Select

         fs.Close()
     End If

class MyClass {
public:
    int x;
    MyClass();
    virtual void f1(int);
    virtual void f2();
    virtual void f3();
};
extern "C" DLLIMPORT void* MCSet(int);
extern "C" DLLIMPORT void MCKill();
extern "C" DLLIMPORT int MCGet();
extern "C" DLLIMPORT void DoStuff(MyClass);

Public Class Form1

    Private moving As Boolean = False

    Private Sub Label2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
        ' if the left button has been pressed

        If e.Button = Windows.Forms.MouseButtons.Left Then
            ' Set the flag to show mouse down

            moving = True

        End If

    End Sub

    Private Sub Label2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseUp
        ' The button was released, reset flag.
        moving = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = moving
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        Dim eLocation As New System.Drawing.Point(e.X, e.Y)

        If moving = True Then


            Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
            Label2.Location = eLocation
        End If
    End Sub
End Class