Private Sub main_base_Click()
   For I = 0 To 9
     base(I).Visible = True
     mov(I).Visible = False
     search(I).Visible = False
   Next I
   kcgl.Tag = 1
   over
End Sub
Private Sub kcgl_Click()
MYINT = 0   这个语句有什么作用啊
End Sub
Private Sub main_move_Click()
   For I = 0 To 9
     base(I).Visible = False
     mov(I).Visible = True
     search(I).Visible = False
   Next I
   kcgl.Tag = 1
   over
End Sub
Private Sub main_search_Click()
   For I = 0 To 9
     base(I).Visible = False
     mov(I).Visible = False
     search(I).Visible = True
   Next I
   kcgl.Tag = 1
   over
End Sub
Function over()    这个自定义过程什么作用
   For I = 0 To 50
    If kcgl.Tag = 1 Then PopupMenu kcgl, 0, 0, 0
  Next I
End Function