Try this ...

VB Code:
  1. Option Explicit

  2.  
  3. Private Sub Form_Load()

  4.     Shell "rundll32.exe shell32.dll,Control_RunDLL C:\MyTheme.theme"

  5. End Sub