' Gambas class file

'
'   Copyright (C) 2004, Michael Isaac.  All rights reserved. 
'

Public Sub cmdOK_Click()
    Me.Close()
End

Public Sub Form_Open()

    Me.Center

    lblInfo.Text = 
        ("<u><font size=\"6\"><b>DeepSpace&nbsp;&nbsp;") & Application.Version & ("</b></font></u><br>"
        "A vector engine written in Gambas.<br><br>Contact <font color=\"#0000FF\">subjugator@gmail.com</font> with questions.<br>"
        "Copyright (C) 2004, Michael Isaac. All rights reserved.")
End