Si lo he entendido bien, lo que quieres es ocultar estas ventanas:
slmgr -ipk XXXX-XXXXX-XXXXX-XXXXX-XXXXX
slmgr -skms xxxx.xxxx.xxx:xxxx
Podrias llamar esos comandos asi con VB6:
Dim escondeme as string
escondeme = shell ("slmgr -skms xxxx.xxxx.xxx:xxxx",vbhide)
y asi con lo quieras escoder.
-Saludos-