Option Explicit
Private strMyVar as String

Private Sub Form_Load()
If Command <> "" Then 'file found
strMyVar = Command 'Holds the path and filename on clicked file
'Do something
End If
End Sub

Private Sub AssociateFileEx()
' byt ut .xxx mot din filtyp
Associate App.Title, ".xxx", App.Title & " File", App.path & "\IconToShow.ICO"
End Sub

Private Sub UnassociateFileEx()
RemoveAssociate App.Title, ".xxx"
End Sub