Private Sub Form_Click()
Text1.Visible = False
Text2.Visible = True
End Sub
Private Sub Form_DblClick()
Text1.Visible = True
Text2.Visible = False
End Sub
private sub Form1_click()
text1.visible=false
text2.visible=true
end sub
private sub Form1_dblclick()
text1.visible=true
text2.visible=false
end sub