iret=shell这地方哪里有问题？

pyk

Private Sub cmdend_click()
End
End Sub
Private Sub cmdstart_Click()
Dim iret
iret = Shell("c:\pwin95\calc.exe", vbNormalFocus)
End Sub

Private Sub form_load()
Dim curdate
Dim curtime
    curdate = Date
    y = Year(curdate)
    m = Month(curdate)
    w = Weekday(curdate)
    curdate = y & "年" & m & " 月 " & d & " 日 " & "," & " 星期 " & w
    Text1 = curdate

    curtime = Time
    h = Hour(curtime)
    mi = Minute(curtime)
    s = Second(curtime)
    curtime = h & "点" & mi & "分" & s & "秒"
    Text2 = curtime
End Sub

Private Sub UserForm_Click()

End Sub

[此贴子已经被作者于2003-1-24 23:43:55编辑过]