17 lines
239 B
Text
17 lines
239 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
FAbout.text = Application.name & " About"
|
||
|
|
Label1.width = FAbout.width
|
||
|
|
Label1.text = Application.name & " Version " & Application.Version
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Button1_Click()
|
||
|
|
|
||
|
|
Me.close
|
||
|
|
|
||
|
|
End
|