vb加载skn或she文件？

程序有一个command，点击弹出“打开”，只允许加载skn和she，选定一个文件后把主题应用到form1上

Private Sub Command1_Click()
  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)
  CommonDialog1.Filter = "*.txt 文本文件|*.txt;*.exe|*.exe 应用程序"
  CommonDialog1.FileName = ""
  CommonDialog1.ShowOpen '打开框
  'CommonDialog1.ShowSave '保存框
  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)
  If Len(CommonDialog1.FileName) Then
    '这里就是得到的文件名了
    '
  End If
End Sub


'下面应该是你想要的代码吧
Private Sub Command1_Click()
  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)
  CommonDialog1.Filter = "*.skn skn类文件|*.skn;*.she|*.she she类文件"
  CommonDialog1.FileName = ""
  CommonDialog1.ShowOpen '打开框
  'CommonDialog1.ShowSave '保存框
  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)
  If Len(CommonDialog1.FileName) Then
    '这里就是得到的文件名了
    '
  End If
End Sub

搜一下：vb加载skn或she文件？