Public Class Form1

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


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Button1loc As Point = Button1.Location
        Dim Button2loc As Point = Button2.Location
        If Button2.Text = "NO" Then
            Button2.Location = Button1loc
            Button1.Location = Button2loc
        End If
        If Button2.Text = "YES" Then
            Label1.Text = "Seeeeee you are a geek"

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Button1loc As Point = Button1.Location
        Dim Button2loc As Point = Button2.Location

        If Button1.Text = "NO" Then
            Button2.Location = Button1loc
            Button1.Location = Button2loc
        End If
        If Button1.Text = "YES" Then
            Label1.Text = "Seeeeee you are a geek"

        End If




    End Sub