Private Sub Form_Load()
    ' Check for FIRST_RUN
    Dim FirstRun As String
    
    FirstRun = Getstring(HKEY_CURRENT_USER, "Software\D-Code Software\Settings", "FirstRun")
    Debug.Print "FirstRun = " & FirstRun

    If FirstRun = "1" Then
        MsgBox "This is the first time you have ran this application.", vbInformation, "Setup"
        CreateKey HKEY_CURRENT_USER, "Software\D-Code Software\Settings"
        Savestring HKEY_CURRENT_USER, "Software\D-Code Software\Settings", "FirstRun", "0"
    ElseIf FirstRun = "0" Then
        MsgBox "You have already setup this application!", vbInformation, "Setup"
    End If
    
    fraConnSetup.Visible = False
    fraAdministration.Visible = False
    fraConsole.Visible = False
End Sub