Dim objBtm = New Bitmap(PictureBox1.Image)　　'<- nothingになる。
 Dim lngW As Long
 Dim lngH As Long
 lngW = objBtm.Width * 0.183
 lngH = objBtm.Height * 0.183
 Dim objBtm2 As New Bitmap(objBtm, lngW, lngH)
 Dim gif_name As String = "gif_data\" & str_d & ".gif"
objBtm2.Save(gif_name, System.Drawing.Imaging.ImageFormat.Gif)
などと、記述しました。Picturebox1へ画像を張り付けたときは、うまくいきますが、picturebox1で画像を作成した時は、一番上の行がnothingになり、うまくいきません。