Private Sub Form_Load()
    ' Check for FIRST_RUN
    
    CreateKey HKEY_CURRENT_USER, "Software\D-Code Software\Settings"
    Savestring HKEY_CURRENT_USER, "Software\D-Code Software\Settings", "FirstRun", "1"
    
    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"
    Else 'If 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