19 lines
499 B
Text
19 lines
499 B
Text
' 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 ") & 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
|