16 lines
258 B
Text
16 lines
258 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
|