Codenstuff.com

        Try
            Dim pbx As New PictureBox
            pbx.ImageLocation = ToolStrip1.Text
            Dim sfd As New SaveFileDialog
            sfd.Title = "Save your Image as...."
            sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
            sfd.Filter = "Jpeg files (*.jpg)|*.jpg|Bitmap files (*.bmp)|*.bmp"
            Dim result As DialogResult = sfd.ShowDialog
            If result = Windows.Forms.DialogResult.OK Then
                If sfd.FileName <> String.Empty Then
                    Dim MyImageFormat As System.Drawing.Imaging.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    If sfd.FileName.ToString.ToUpper.EndsWith("JPG") Then
                        MyImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    ElseIf sfd.FileName.ToString.ToUpper.EndsWith("BMP") Then
                        MyImageFormat = System.Drawing.Imaging.ImageFormat.Bmp
                    End If
                    pbx.Image.Save(sfd.FileName, MyImageFormat)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

  Try
            Dim label As New Label
            label.Text = ToolStripStatusLabel1.Text
            Dim sfd As New SaveFileDialog
            sfd.Title = "Save your Image as...."
            sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
            sfd.Filter = "Jpeg files (*.jpg)|*.jpg|Bitmap files (*.bmp)|*.bmp"
            Dim result As DialogResult = sfd.ShowDialog
            If result = Windows.Forms.DialogResult.OK Then
                If sfd.FileName <> String.Empty Then
                    Dim MyImageFormat As System.Drawing.Imaging.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    If sfd.FileName.ToString.ToUpper.EndsWith("JPG") Then
                        MyImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    ElseIf sfd.FileName.ToString.ToUpper.EndsWith("BMP") Then
                        MyImageFormat = System.Drawing.Imaging.ImageFormat.Bmp
                    End If
                    My.Computer.Network.DownloadFile(label.Text, sfd.FileName)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

for each tsi as toolstripitem in toostrip.items
if typeof tsi is toolstripbutton and tsi.text ="YOURBUTTONTOSTAY" then
else
toolstrip.items.remove(tsi)
end if
next