Private Sub command1_Click()
if text1.text="843636" then
form3.show
elseif text1.text<>"" then
form4.show
else
msgbox"不輸入點什麽給我嗎?"
exit sub
end if
unload me
End Sub