submain.bas

this control is used for the programming with mapobject in the environment of Visual basic.

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