Private Sub MDIForm Loado Frmwelcome Show End Sub 工具栏的 Buttonclick事件代礓 Private Sub Toolbarl_ Button Click( By Val Button As MSComctlLib. Button) Select case button Index Unload Frmjbwh Unload frmcj Unload FrmHELP Unload Frmwelcome Unload frmabout Load Frmjbgx mjbgx SI Unload Frmjbgx Unload fomc Unload FrmHELP Unload frmwelcome Unload frmabout Load Frmjbwh Unload Frmjbgx Unload FrmHELP frmci Show Unload Frmjbgx Unload frme Unload FrmHELP Unload Frmwelcome Unload Frmjbwh Load frmabout frmabout. She Unload frme Unload Frmjbwh5 Private Sub MDIForm_Load() Load Frmwelcome Frmwelcome.Show End Sub 工具栏的 Buttonclick 事件代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Unload Frmjbwh Unload frmcj Unload FrmHELP Unload Frmwelcome Unload frmabout Load Frmjbgx Frmjbgx.Show Case 2 Unload Frmjbgx Unload frmcj Unload FrmHELP Unload Frmwelcome Unload frmabout Load Frmjbwh Frmjbwh.Show Case 3 Unload Frmjbgx Unload Frmjbwh Unload FrmHELP Unload Frmwelcome Unload frmabout Load frmcj frmcj.Show Case 4 Unload Frmjbgx Unload frmcj Unload FrmHELP Unload Frmwelcome Unload Frmjbwh Load frmabout frmabout.Show Case 5 Unload Frmjbgx Unload frmcj Unload Frmjbwh