If Digitizer1.IsAllocated = True Then
    Digitizer1.Halt
    Digitizer1.Free
End If
'Display2.Allocate
If Digitizer2.IsAllocated = False Then
    Digitizer2.Allocate
End If
Display2.Visible = True
Digitizer2.GrabContinuous
