Obtendo o nome do executável da aplicação

Public Class Form1
  'Este exemplo mostra como obter o nome do executável
  'do programa

  Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
    Dim exe As String
    exe = My.Application.Info.AssemblyName
    MsgBox("O nome do executável é " & exe & ".exe")
  End Sub
End Class