Private Sub Form _ Db1Click( )
Forml.Hide
Form2.Show 0
End Sub Private Sub Form _ Db1Click( )
Form1.Hide
Form 2.Show 1
End Sub Private Sub Form _ Click( )
Form l.Hide
Form 2.Show
End Sub Private Sub Form _ Dbl Click( )
Form l.Enabled=False
Form 2.Enabled=True
End Sub