Private Declare Function SystemParametersInfo Lib "user32" _
  Alias "SystemParametersInfoA" (ByVal uAction As Long, _
  ByVal uParam As Long, ByVal lpvParam As Any, _
  ByVal fuWinIni As Long) As Long
 
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
 
Private Declare Function GetComputerName Lib "kernel32" _
  Alias "GetComputerNameA" (ByVal lpBuffer As String, _
  nSize As Long) As Long
 
Public Sub SetDesktopWallpaper(ByVal sFilename As String)
  SystemParametersInfo SPI_SETDESKWALLPAPER, 0, sFilename, _
    SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
End Sub
 
Private Function GetComputerInfo() As String
  Dim Result As Long
  Dim cInfo As String
  cInfo = Space$(256)
  Result = GetComputerName(cInfo, Len(cInfo))
  If InStr(cInfo, Chr$(0)) > 0 Then _
    cInfo = Left$(cInfo, InStr(cInfo, Chr$(0)) - 1)
  GetComputerInfo = cInfo
End Function
 
Private Sub Form_Load()
  With Picture1
    .Appearance = 0
    .BorderStyle = 0
    .AutoRedraw = True
    .Left = 0
    .Top = 0
    .Width = Screen.Width
    .Height = Screen.Height
    .BackColor = RGB(5, 70, 160)
    .Font = "Times New Roman"
    .FontBold = True
    .FontSize = 40
    .ForeColor = RGB(255, 255, 255)
    .CurrentX = 15 * Screen.TwipsPerPixelX
    .CurrentY = 15 * Screen.TwipsPerPixelY
  End With
  Picture1.Print GetComputerInfo
  Picture1.Picture = Picture1.Image
  SavePicture Picture1.Picture, "c:windowsRechnername.bmp"
  SetDesktopWallpaper "c:windowsRechnername.bmp"
  End
End Sub