if (!Page.IsPostBack)
{
  string FoundItem = string.Empty;

  // Open the connection as the ‘ghost’ user (the destination user you specified for the activity in K2 Studio)
  // Note: replace the values , , and
  // with the correct values for your environment
  SourceCode.K2ROM.Connection MyConn = new SourceCode.K2ROM.Connection();
  MyConn.Open("MyServerName", "domain,GhostUser,password");

  try
  {
    // Ensure that only the items for the desired process are returned
    // Note: you may do some further processing to filter the worklist items returned
    // In this example, only the activities from the project MyProject and its process MyProcess
    // will be returned
    // Note: replace the values with the correct values for your environment
    WorklistCriteria MyCriteria = new WorklistCriteria();
    MyCriteria.AddFilterField(WCField.ProcessFullName, WCCompare.Equal, @"MyProjectMyProcess");

    // Make sure the oldest item is picked up first
    MyCriteria.AddSortField(WCField.EventStartDate, WCSortOrder.Ascending);

    // Open the ‘ghost’ user’s worklist
    Worklist CurrentWorklist = MyConn.OpenWorklist(MyCriteria);

    // If an item is found, choose the first one.
    if (CurrentWorklist.Count > 0)
    {
      CurrentWorklist[0].Redirect(this.Page.User.Identity.Name);
      FoundItem = CurrentWorklist[0].Data;
    }
  }
  finally
  {
    // Close the connection, regardless of whether there was an error.
    MyConn.Close();
  }

  if (!FoundItem.Equals(String.Empty))
  {
    // Redirect to the item,
    Response.Redirect(FoundItem);
  }
}

If Not Page.IsPostBack Then
  Dim FoundItem As String = String.Empty

  ' Open the connection as the ghost user (the destination user you specified for the activity in K2 Studio)
  ' Note: replace the values , , and
  ' with the correct values for your environment
  Dim MyConn As New SourceCode.K2ROM.Connection
  MyConn.Open("MyServerName", "domain,GhostUser,password")

  Try
    ' Ensure that only the items for the desired process are returned
    ' Note: you may do some further processing to filter the worklist items returned
    ' In this example, only the activities from the project MyProject and its process MyProcess
    ' will be returned
    ' Note: replace the values with the correct values for your environment
    Dim MyCriteria As New WorklistCriteria
    MyCriteria.AddFilterField(WCField.ProcessFullName, WCCompare.Equal, "MyProjectMyProcess")

    ' Make sure the oldest item is picked up first
    MyCriteria.AddSortField(WCField.EventStartDate, WCSortOrder.Ascending)

    ' Open the ghost users worklist
    Dim CurrentWorklist As Worklist = MyConn.OpenWorklist(MyCriteria)

    ' If an item is found, choose the first one.
    If CurrentWorklist.Count > 0 Then
      CurrentWorklist(0).Redirect(Me.Page.User.Identity.Name)
      FoundItem = CurrentWorklist(0).Data
    End If
  Finally
    ' Close the connection, regardless of whether there was an error.
    MyConn.Close()
  End Try

  If Not FoundItem.Equals(String.Empty) Then
    ' Redirect to the item,
    Response.Redirect(FoundItem)
  End If
End If