Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub Form_Load()
Dim strString As String
Dim lngDword As Long

If Command$ <> "%1" Then
Msgbox (Command$ & " är filen du behöver öppna!"), vbInformation
'Addera till 'recent' filkatalog- dvs listan för de sist använda filerna
lReturn = fCreateShellLink("..\..\Recent", _
Command$, Command$, "")
End If

'Skapar en nyckel i classen
Call savestring(HKEY_CLASSES_ROOT, "\.xyz", "", "xyzfile")

'innehållstyp
Call savestring(HKEY_CLASSES_ROOT, "\.xyz", "Content Type", "text/plain")

'namn
Call savestring(HKEY_CLASSES_ROOT, "\xyzfile", "", _
"Här skriver du vad filerna är för någonting")

'editerings flaggor
Call SaveDword(HKEY_CLASSES_ROOT, "\xyzfile", "EditFlags", "0000")

'filens icon (kan vara en icon fil, eller en icon som finns i en dll fil)
Call savestring(HKEY_CLASSES_ROOT, "\xyzfile\DefaultIcon", "", _
App.Path & "\ICON.ico")

'Shell 'starta'
Call savestring(HKEY_CLASSES_ROOT, "\xyzfile\Shell", "", "")

'Shell Open 'öppna'
Call savestring(HKEY_CLASSES_ROOT, "\xyzfile\Shell\Open", "", "")

'Shell open command 'kommandorad'
Call savestring(HKEY_CLASSES_ROOT, "\xyzfile\Shell\Open\command", "", _
App.Path & "\Project1.exe %1")

End Sub