GFConsole/Testfrm.frm
VERSION 5.00
Begin VB.Form Testfrm
Caption = "Testfrm"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Enabled = 0 'False
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows‑Standard
Visible = 0 'False
Begin VB.Timer Timer1
Interval = 10000
Left = 360
Top = 240
End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis. Use to test GFConsolefrm.
Private Sub Form_Load()
'on error resume next
Load GFConsolefrm 'important
Call GFConsolefrm.Console_SetBackGroundPicture(App.Path + "\" + "sample.bmp")
Call GFConsolefrm.Console_Size(vbNormal, 640, 480)
Call GFConsolefrm.Console_SetForeColor(RGB(220, 140, 60))
Call GFConsolefrm.Console_SetFont("Terminal", 9, False, False)
Call GFConsolefrm.Console_SetCursorString("]")
Call GFConsolefrm.Console_SetInfoText("GFConsole v1.0")
End Sub
Private Sub Timer1_Timer()
'on error resume next
Call GFConsolefrm.Console_Size(vbNormal, Int((800 ‑ 200 + 1) * Rnd(1) + 200), Int((600 ‑ 100 + 1) * Rnd(1) + 100))
End Sub
[END OF FILE]