Private Sub btSpeichern_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles btSpeichern.Click
    If Not IsNothing(pbAnzeige.Image) Then
      svdBildSpeichern.InitialDirectory = gstrPicPath
      svdBildSpeichern.FileName = gstrPicPath.Remove(0, gstrPicPath.LastIndexOf( _
        "\") + 1)
 
      If svdBildSpeichern.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim bmpTemp As Bitmap
        bmpTemp = pbAnzeige.Image
 
        Dim strFormat As String = svdBildSpeichern.FileName
        Select Case strFormat.Remove(0, strFormat.LastIndexOf(".") + 1)
          Case "bmp"
            bmpTemp.Save(svdBildSpeichern.FileName, _
              System.Drawing.Imaging.ImageFormat.Bmp)
          Case "jpg", "jpeg"
            bmpTemp.Save(svdBildSpeichern.FileName, _
              System.Drawing.Imaging.ImageFormat.Jpeg)
        End Select
      End If
    End If
  End Sub