Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form1.Show
Form1.SetFocus
Case 2
Form2.Show
Form2.SetFocus
End Select
End Sub

好像也没问题哦..

好像不会出现这样的问题吧

搞不懂

多谢，我再去试试，如果谁还有办法的话，请发言。谢谢。

要显示哪一页:
olad form*
form*.show

unload me '在进入新页面时,卸载当前页

duo xie

.........