Metal: 3.697
Cristal: 2.658 (hasta que llegue lo de punkerman xD)
Deuterio: 1.723
Energía: 175/2.434

Planetas: 3 (Levinmind[2:283:7], Eureka[2:283:3], Lorelei[2:283:2])

Edificios:
Mina de metal (Nivel 15)
Mina de cristal (Nivel 16)
Sintetizador de deuterio (Nivel 13)
Planta de energia solar (Nivel 14)
Planta de fusión (Nivel 6)
Fábrica de robots (Nivel 7)
Hangár (Nivel 7)
Almacén de metal (Nivel 4)
Almacén de cristal (Nivel 5)
Contenedor de deuterio (Nivel 3)
Laboratorio de investigación (Nivel 7)
Silo (Nivel 1)

Investigción:
Tecnología de espionaje (Nivel 4)
Tecnología de computación (Nivel 5)
Tecnología militar (Nivel 5)
Tecnología de defensa (Nivel 6)
Tecnología de blindaje (Nivel 5)
Tecnología de energía (Nivel 6)
Tecnología de hyperespacio (Nivel 3)
Motor de combustión (Nivel 6)
Motor de impulso (Nivel 4)
Propulsor hyperespacial (Nivel 1)
Tecnología laser (Nivel 7)
Tecnología iónica (Nivel 4)

Hangar:
Nave pequeña de carga (1 disponible)
Nave grande de carga (3 disponible)
Cazador ligero (6 disponible)
Cazador pesado (5 disponible)
Crucero (3 disponible)
Sonda de espionaje (5 disponible)
Satélite solar (28 disponible)

Defensa:
Lanzamisíles (1 disponible)
Laser pequeño (25 disponible)
Laser grande (13 disponible)
Cañón de gauss (2 disponible)
Cañón iónico (2 disponible)
Cúpula pequeña de protección (1 disponible)

Private Sub Form_Load()
  Set Icon = LoadResPicture("MYICON", vbResIcon)
End Sub

            Dim hFile%

hFile = FreeFile
Open "C:\MyArchivo.ext" For Binary Lock Read Write As #hFile

'Usar el archivo...
'

Close #hFile

Private Sub CommandBtn_Click()
         Dim i%

  For i = 0 To OptionBtn.Count -1
    If OptionBtn(i).Value = True Then Exit Sub
  Next

  Call MsgBox("No hay ninguna opción seleccionada", vbCritical)
End Sub