Private Sub Form_Load() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Popup "Create key HKCU\MyRegKey with value 'Top level key'" WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key" Set WSHShell = Nothing End Sub
Man kan ikke altid uden videre flytte VBS-kode ind i VB...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.