Private Sub ICommand_Execute() FForm.MoveUp End
Sub
Private Property Set ICommand_Form(ByVal RHS As Form1) Set
FForm = RHS End Property
Private Sub
ICommand_Undo() FForm.MoveDown End
Sub 请注意在列表1中ICommand使用了前缀I。这是接口的一个通俗的前缀符号,在多种语言中被广泛的应用。它的目的是帮助读者记住该模块只包含定义。同时还要注意所有的方向命令中都使用了Implements语句。这确保了每个类最少拥有ICommand接口。其结果是我可以定义一个ICommand变量,并给它指定实现了ICommand类的任何实例。