Private Sub bSpeichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bSpeichern.Click
        Me.PictureBox1.Image.Save(MMI.ImageDIR & "\" & Me.tbSpeicherName.Text & _
        ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
 
    End Sub

mfg
rt