500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Sub Command1_Click() 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>End Sub 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Sub Command2_Click() 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Dim WordApp As Word.Application 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Set WordApp = New Word.Application 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> WordApp.Documents.Add ("c:a.doc") 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> WordApp.Visible = True 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Set WordApp = Nothing 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>End Sub 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>