PrivateSubCommand_Click()Commondialog.ShowColorEndSubA打开文件对话框B打开颜色对话框C打开字体对话框D打开保存对话框