100分求助！！！！！在一个窗体中，有一个frame控件其上面有一个label控件.....

一个窗体中，有一个frame控件其上面有一个label控件.....
窗体上有一个按钮。代码如下，为何在按这个按钮时，label控件没有改变？？
Private Sub cmdSetPen_Click()
'TimeDelay 500
Dim read As Boolean
frmTest.cmdReadPen.Enabled = False
frmTest.cmdReadD.Enabled = False
frmTest.cmdClearD.Enabled = False
lblState.Caption = "正在设定笔号请稍候..."
Me.MousePointer = 11
'call the set pen function
read = SetPenNo
'上面的setpenno是一个过程。它里面用shell执行了一个EXE文件。
Me.MousePointer = 0
If read = False Then
 'frmTest.lblState.Caption = ""
frmTest.cmdSetPen.SetFocus
Else
lblState.Caption = "设定笔号成功！"
frmTest.cmdReadD.SetFocus
 TimeDelay 500
 TimeDelay 500
 TimeDelay 500
End If
frmTest.cmdReadPen.Enabled = True
frmTest.cmdReadD.Enabled = True
frmTest.cmdClearD.Enabled = True
End Sub
rivate Sub Form_Load()
lblState.Caption = "正在等待！"
End Sub