'Imports System.Drawing
'PictureBox.ImageプログラミングにImageオブジェクトを設定する　
If PictureBox1.Image Is Nothing Then＝＞ここは、過去画像を残すために初回だけPicturBox1.Image定義
    PictureBox1.Image = New Bitmap(100, 50)

＝＞Pictureboxに表示するものをImageと呼びます。ここではBitmapをImageに定義してます。

End If

'ImageオブジェクトのGraphicsオブジェクトを作成する

＝＞graphicオブジェクトを使うのは、図形や文字を描画する目的で使います。
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)

＝＞ここから下は、Graphic命令をどんどん追加していけば描画できます
'全体を白で塗りつぶす
g.FillRectangle(Brushes.White, g.VisibleClipBounds)
'現在の時刻を描画する
g.DrawString(DateTime.Now.ToLongTimeString(), _
             SystemFonts.DefaultFont, Brushes.Black, 10, 10)

'Graphicsオブジェクトのリソースを解放する
g.Dispose()

'Imageプロパティの変更を反映させるために、PictureBox1を再描画する
PictureBox1.Invalidate()

'Imports System.Drawing

'画像の一部を切り取って（トリミングして）表示する

'描画先とするImageオブジェクトを作成する

Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)
=>切り取った画像を貼るBitmapとして canvasを作成

‘ImageオブジェクトのGraphicsオブジェクトを作成する

Dim g As Graphics = Graphics.FromImage(canvas)

=>Bitmapのcanvasに図形を描画するためにGraphicsｇを作成

'画像ファイルのImageオブジェクトを作成する
Dim img As New Bitmap("C:\test\1.jpg")

=>ここでは外部からjpg画像を読み込んでBitmapとしている

'切り取る部分の範囲を決定する。ここでは、位置(10,10)、大きさ100x100

Dim srcRect As New Rectangle(10, 10, 100, 100)

=>Ｒectangle構造体というデータ構造で切取りサイズを定義している

'描画する部分の範囲を決定する。ここでは、位置(0,0)、大きさ100x100で描画する
Dim desRect As New Rectangle(0, 0, srcRect.Width, srcRect.Height)

＝＞描画部分もRectangle構造体で定義

'画像の一部を描画する
g.DrawImage(img, desRect, srcRect, GraphicsUnit.Pixel)

＝＞DrawImageは、イメージをGraphicに書き込む命令、Ｐixel単位でsrcRectをdesRect位置へ書き込む

'Graphicsオブジェクトのリソースを解放する
g.Dispose()

'PictureBox1に表示する
PictureBox1.Image = canvas