Private Sub PGRID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PGRID.SelectedIndexChanged
  Dim SID As Integer = PGRID.DataKeys(PGRID.SelectedIndex)

  Dim PSET As New PSSET()
  DC.FDPS(PSET)
  Dim PSROW As PSSET.–Á•¿•\Row = PSET.–Á•¿•\.FindByID(SID)

  SNAPI.ImageUrl = "./PIMG/" & PSROW.Žð‰æ‘œ
  SNAPI.Visible = True
End Sub