vb.net (find self path)

Dim aPath As String
        Dim aName As String
        aName = System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0).FullyQualifiedName
        aPath = System.IO.Path.GetDirectoryName(aName)
        Dim bm_source As New Bitmap(Bitmap.FromFile(aPath & "\advancedsettings.png"), 40, 40)