Dim strBuff As String
strBuff = StrConv("c:\winnt\explorer.exe" & vbNullChar, vbUnicode)
Call SHChangeIconDialog(Me.hWnd, strBuff, 0, 0)

で行けたにょ（Win2K）。細かい部分は任せた。