<DefaultMemberAttribute("Item")> _
<SharePointPermissionAttribute(SecurityAction.LinkDemand, ObjectModel:=True)> _
<SharePointPermissionAttribute(SecurityAction.InheritanceDemand, ObjectModel:=True)> _
Public Class UserProfile

Dim instance As UserProfile

[DefaultMemberAttribute("Item")] 
[SharePointPermissionAttribute(SecurityAction.LinkDemand, ObjectModel=true)] 
[SharePointPermissionAttribute(SecurityAction.InheritanceDemand, ObjectModel=true)] 
public class UserProfile

Public Sub UserProfileSample() 
   'get portal site context from topology          
   Dim strUrl As String = "http://SampleName"          
   Dim tm As New TopologyManager()          
   Dim ps As PortalSite = tm.PortalSites(New Uri(strUrl))          
   Dim pc As PortalContext = PortalApplication.GetContext(ps)
   'initialize user profile config manager object          
   Dim upm As New UserProfileManager(pc)          
   'create user sample          
   Dim sAccount As String = "mydomain\myalias"          
   If Not upm.UserExists(sAccount) Then
      upm.CreateUserProfile(sAccount)
   End If           
   'to set prop values on user profile          
   Dim u As UserProfile = upm.GetUserProfile(sAccount)          
   Dim sPropName As String = "PreferredName"          
   u(sPropName) = sAccount          
   u.Commit()           
   'remove user profile sample          
   upm.RemoveUserProfile(sAccount)       
End Sub 

Public Sub CreatePersonalSiteSample()          
   'get portal site context from topology          
   Dim strUrl As String = "http://SampleName"          
   Dim tm As New TopologyManager()          
   Dim ps As PortalSite = tm.PortalSites(New Uri(strUrl))          
   Dim pc As PortalContext = PortalApplication.GetContext(ps)
   'initialize user profile config manager object          
   Dim upm As New UserProfileManager(pc)          
   Dim sAccount As String = "mydomain\myalias"          
   Dim u As UserProfile = upm.GetUserProfile(sAccount)
   u.CreatePersonalSite()          
   Dim mysite As SPSite = u.PersonalSite          
   Dim myurl As String = u.PersonalUrl       
End Sub 'CreatePersonalSiteSample

public void UserProfileSample() 
{ 
   //get portal site context from topology string 
   strUrl = "http://SampleName"; 
   TopologyManager tm = new TopologyManager(); 
   PortalSite ps = tm.PortalSites[new Uri(strUrl)]; 
   PortalContext pc = PortalApplication.GetContext(ps);  

   //initialize user profile config manager 
   object UserProfileManager upm = new UserProfileManager(pc); 

   //create user sample 
   string sAccount = "mydomain\\myalias"; 
   if (!upm.UserExists(sAccount)) upm.CreateUserProfile(sAccount);  

   //to set prop values on user profile UserProfile 
   u = upm.GetUserProfile(sAccount); 
   string sPropName = "PreferredName"; u[sPropName] = sAccount;
   u.Commit();  

   //remove user profile sample 
   upm.RemoveUserProfile(sAccount); 
}  

public void CreatePersonalSiteSample() 
{ 
   //get portal site context from topology 
   string strUrl = "http://SampleName"; 
   TopologyManager tm = new TopologyManager(); 
   PortalSite ps = tm.PortalSites[new Uri(strUrl)]; 
   PortalContext pc = PortalApplication.GetContext(ps);  
   //initialize user profile config manager object 
   UserProfileManager upm = new UserProfileManager(pc); 
   string sAccount = "mydomain\\myalias"; 
   UserProfile u = upm.GetUserProfile(sAccount);
   u.CreatePersonalSite(); 
   SPSite mysite = u.PersonalSite; 
   string myurl = u.PersonalUrl; 
}