下列程序的功能是，当一个TextBox控件被拖过一个PictureBox控件时，指针从默认的箭头变为特定的图标，当Text-Box控件被拖到其他地方时，指针恢复到默认的状态。请完成下列程序。
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Select Case State
Case vbEnter
Source.Draglcon=LoadPicture("JCONS\ARROWS\POINT03.ICO")
Case______
Source.Draglcon=LoadPicture()
End Select
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Draglcon=______
End Sub
