Imports System.Runtime.InteropServices

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        read_ini_sub()

        txtMyCall.Text = MyCall
        txtD_My.Text = MyCall_d
        txtF1.Text = F1_m
        txtD_F1.Text = F1_d
        txtF2.Text = F2_m
        txtD_F2.Text = F2_d
        txtF3.Text = F3_m
        txtD_F3.Text = F3_d
        txtF4.Text = F4_m
        txtD_F4.Text = F4_d
        txtF5.Text = F5_m
        txtD_F5.Text = F5_d
        txtF6.Text = F6_m
        txtD_F6.Text = F6_d
        txtF7.Text = F7_m
        txtD_F7.Text = F7_d
        txtF8.Text = F8_m
        txtD_F8.Text = F8_d

        txtLeft.Text = Left_m
        txtD_Left.Text = Left_d
        txtDown.Text = Down_m
        txtD_Down.Text = Down_d
        txtRight.Text = Right_m
        txtD_Right.Text = Right_d

    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        MyCall = txtMyCall.Text
        MyCall_d = txtD_My.Text
        F1_m = txtF1.Text
        F1_d = txtD_F1.Text
        F2_m = txtF2.Text
        F2_d = txtD_F2.Text
        F3_m = txtF3.Text
        F3_d = txtD_F3.Text
        F4_m = txtF4.Text
        F4_d = txtD_F4.Text
        F5_m = txtF5.Text
        F5_d = txtD_F5.Text
        F6_m = txtF6.Text
        F6_d = txtD_F6.Text
        F7_m = txtF7.Text
        F7_d = txtD_F7.Text
        F8_m = txtF8.Text
        F8_d = txtD_F8.Text

        Left_m = txtLeft.Text
        Left_d = txtD_Left.Text
        Down_m = txtDown.Text
        Down_d = txtD_Down.Text
        Right_m = txtRight.Text
        Right_d = txtD_Right.Text

        write_ini_sub()

    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

        Form1.Show()
        Me.Hide()

    End Sub

End Class