...   
 Button1.Image = ButtonImage("c:\Icons\xxx.png")
 ...

 Private Function ButtonImage(ByVal nPath As String) As BitmapSource
  Dim nUri As New Uri(nPath, UriKind.RelativeOrAbsolute)
  Dim nImage As New BitmapImage(nUri)
  ButtonImage = nImage
 End Function