19 lines
600 B
Plaintext
19 lines
600 B
Plaintext
Module CheckIt {
|
|
Declare Form1 Form
|
|
Declare Label1 Button Form Form1
|
|
Declare Button1 Button Form Form1
|
|
Method Label1,"move", 2000, 2000, 4000, 600
|
|
Method Button1,"move", 2000, 3000, 4000, 600
|
|
With Label1, "Caption" as caption$, "Locked", true, "Caption" as cap
|
|
With Button1, "Caption", "click me", "Default", True ' make this the default control
|
|
caption$="There have been no clicks yet"
|
|
m=0
|
|
Function Button1.Click {
|
|
m++
|
|
cap=m
|
|
}
|
|
Method Form1, "Show",1
|
|
Declare Form1 Nothing
|
|
}
|
|
Checkit
|