Imports System.IO
Public Class Form10
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mer As Integer = 0
        Dim lang As Integer = 2

        If CheckBox1.Checked = True Then
            mer = 1
        Else
            CheckBox1.Checked = False
            mer = 0
        End If


    End Sub

    Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form10_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        Form1.Show()
    End Sub
End Class