Selected printer as a default printer in windows application

Question

 am using below code to pop up and select the printer in the network.
 
Dim d As New PrintDialog()
dim lsPrinter as string
If d.ShowDialog() = DialogResult.OK Then
      lsPrinter =d.PrinterSettings.PrinterName,
end if
 
Now i would like to set the selected printer as the default printer for this applicaton.how can i do it.