Caso você queira Obter o nome da Tela corrente em tempo de execução, através da utilização de um componente (userControl), utilize o código no componente:

Dim Tela As Long
Dim NomeTela as string
Dim URL() As String
Dim Posicao As Integer
Dim Tela As String URL = Split(System.Web.HttpContext.Current.Request.RawUrl.ToString(), "/")
Tela = CStr(URL.GetValue(URL.Length() - 1)).ToString()
Posicao = InStr(1, NomeTela, "?", CompareMethod.Binary)
If Posicao > 0 Then
  NomeTela = Left(NomeTela, Posicao - 1)
End If

E seguindo a dica que recebi do João Paulo, existe uma maneira melhor de retirar a extensão do arquivo, assim o comando ficaria:

Dim nomeTela as string

nomeTela = System.IO.Path.GetFileNameWithoutExtension(System.Web.HttpContext.Current.Request.RawUrl.ToString())

Após a criação do componente, voce deve utilizá-los nas telas..

Att