frmci Show End Sub Private Sub EDIT Click Unload Frmjbwh Unload frmcj Unload FrmHELP Unload Frmwelcome Unload frmabout Load Frmjbgx Frmjbgx Show End Sub Private Sub Absystem Click Unload Frmjbgx Unload frmcj Unload Frmibwh Unload Frmwelcome Unload frmabout Load FrmHELP FrmHELP Show End Sub Private Sub Help click Unload Frmjbgx Unload frmcy Unload FrmHELP Unload Frmwelcome Unload Frmjbwh Load frmabout frmabout show End Sub Private Sub quit Click Frmmain. Hide Unload Frmmain End sub Private Sub quit_ Click Frmmain. hide Unload Frmmain End Sub 窗体的Load事件代礓4 frmcj.Show End Sub Private Sub EDIT_Click() Unload Frmjbwh Unload frmcj Unload FrmHELP Unload Frmwelcome Unload frmabout Load Frmjbgx Frmjbgx.Show End Sub Private Sub Absystem_Click() Unload Frmjbgx Unload frmcj Unload Frmjbwh Unload Frmwelcome Unload frmabout Load FrmHELP FrmHELP.Show End Sub Private Sub Ahelp_Click() Unload Frmjbgx Unload frmcj Unload FrmHELP Unload Frmwelcome Unload Frmjbwh Load frmabout frmabout.Show End Sub Private Sub quit_Click() Frmmain.Hide Unload Frmmain End Sub Private Sub quit1_Click() Frmmain.Hide Unload Frmmain End Sub 窗体的 Load 事件代码：