UserAccountPicture.exe VB.Net version

UserAccountPicture.vb

Imports System.Runtime.InteropServices

Module useraccountpicture

  <DllImport("shell32.dll", EntryPoint:="#262", CharSet:=CharSet.Unicode, PreserveSig:=False)> _
  Private Sub SetUserTile(ByVal username As String, ByVal notneeded As Integer, ByVal picturefilename As String)
  End Sub

  Sub Main(ByVal args As String())
    If (args.Length = 2) Then
      SetUserTile(args(0), 0, args(1))
    End If
  End Sub

End Module