submain.bas

来自「this control is used for the programming」· BAS 代码 · 共 14 行

Attribute VB_Name = "Submain"
Sub main()

Randomize                           'set the system timer as the seed for rnd function

Frm_Generation.Show
MDIFrm.cmd_generation.BackColor = &H80000013
MDIFrm.cmd_generation.FontBold = True




End Sub