首先，在窗體中建立一個“線”控件，并把它的索引號定為0。接著，添加如下的代碼：

PRivateSubSetErrorState(ByValErrorStateAsBoolean,_
ByRefControlAsControl)
OnErrorResumeNext
LoadlinError(Control.Index)

WithlinError(Control.Index)
Set.Container=Control.Container
.X1=Control.Left
.X2=Control.Left Control.Width
.Y1=Control.Top Control.Height 10
.Y2=Control.Top Control.Height 10
.BorderColor=vbRed
.Visible=ErrorState
EndWith
EndSub

　　以上程序將會在一個控件數組中建立新的線以匹配引入的控件。然后，設置線的容器以處理標簽控件中的文本框。它設置了線的位置和顏色，如果ErrorState為True，線為可見。

在文本框的Validate事件添加以下代碼，以調用SetErrorState方法：

IfText1(Index).Text="1"Then
注釋：==Valid
CallSetErrorState(False,Text1(Index))
Else
注釋：==Invalid
CallSetErrorState(True,Text1(Index))
EndIf

　　相比于信息對話框，使用行來顯示錯誤狀態很少打斷開發人員的編程思路，并且這一方法很容易學會。