Private Sub Command1_Click() '登录按钮Static cs As IntegerIf Text1.Text <> 123456 Thencs = cs + 1If cs >= 3 Then EndElse'写入登录成功后想运行的语句End IfEnd Sub
dim i as integeri=0if text1.text<>"123456" then i=i+1if i>3 then endend ifelsemsgbox"登录成功"end if