Open Parent Directory 
Attribute VB_Name = "Module1"
Option Explicit

'Star Type
Type Star
    X As Long
    Y As Long
    Speed As Long
    Size As Long
End Type