Private Sub Load_Execute(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loadfile.click
    Dim num1, num2, num3, num4 As String
    num1 = one
    num2 = two
    num3 = three
    num4 = four
    main.label1.text = num1
    main.label2.text = num2
    main.label3.text = num3
    main.label4.text = num4
    Me.close()
End Sub