Imports System.IO
Imports Microsoft.Win32
Public Class Form1
    Public regKey1 As Object
    Public regKey2 As Object
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        regKey1 = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\ShopAssist", "SVPath", Nothing)
        regKey2 = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\GSANOGUI", "SVPath", Nothing)
        '        On Error Resume Next
        If regKey1 <> Nothing Then
            RichTextBox2.Text = "GSA Settings Found"
        Else
            RichTextBox2.Text = "Nothing Found For GSA"
        End If
        If regKey2 <> Nothing Then
            RichTextBox1.Text = "GSA (No GUI) Setttings Found"
        Else
            RichTextBox1.Text = "Nothing Found For GSA (No GUI)"
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        regKey2 = Registry.CurrentUser.OpenSubKey("software", True)
        regKey2.DeleteSubKey("GSANOGUI", True)
        regKey2.Close()
        RichTextBox1.Text = "Settings Deleted"

        regKey1 = Registry.CurrentUser.OpenSubKey("software", True)
        regKey1.DeleteSubKey("ShopAssist", True)
        regKey1.Close()
        RichTextBox2.Text = "Settings Deleted"

        MsgBox("All registry entries for GSA have been deleted.", MsgBoxStyle.OkOnly, "Guild Sales Assistant")
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class