Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ass As String = 1
        Dim directoryA As String = TextBox1.Text
        Dim frame1 As String = ass
        Dim img1 As String = ComboBox1.Text
        Dim m As New Bitmap(PictureBox1.Image)
        m.Save(directoryA & frame1 & img1)
        ass = ass + 1

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
        PictureBox1.ImageLocation = TextBox1.Text


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.ShowDialog()
    End Sub
End Class