求救，如何编译这段代码

偶是名副其实的菜鸟，基本什么都不懂，所以请各位仁兄能详细指教一下，问题是这样的，从网上找到了一段代码，可用vb2008速成版试了下，老是不行，郁闷死了，请各位指点一下，代码是这样的，

Function ConvertToSecureString(ByVal str As String)
        Dim password As New SecureString
        For Each c As Char In str.ToCharArray
            password.AppendChar(c)
        Next
        Return password
End Function
Sub Main()
       dim username as string = "Administrator"
       dim password as SecureString = ConvertToSecureString("my password")
       dim domain as string = Nothing
       dim filename as string = "notepad.exe" ' %SYSTEMROOT%\system32
        Try
            System.Diagnostics.Process.Start(filename,username, password, domain)
        Catch ex As Win32Exception
            MessageBox.Show("Wrong username or password.", _
                "Error logging in as administrator", MessageBoxButtons.OK, _
                 MessageBoxIcon.Error)
        End Try
End Sub
我是从微软官网下载的Microsoft Visual Basic 2008 Express Edition，是免费的速成班，能否编译此代码，新建项目该选择哪一项，我选了“windows窗体应用程序”，
然后，我把这段代码复制到代码编辑器中，并且把原来的那段默认的删了，经过一次次修改，最后是这个样子
但生成程序后，能打开一个窗口，但调不出notepad.exe，郁闷，到底是哪里出错了，是这里吗Dim filename As String = "notepad.exe" ' %SYSTEMROOT%\system32，，，，

补充：VB ,  基础类