Sub App_Start
Form1.Show
obj.New1(false)
obj.FromControl("form1")
obj.SetProperty("KeyPreview",true)
eventKeyDown.New1(obj.Value,"KeyDown")
eventKeyUp.New1(obj.Value,"KeyUp")
End Sub
Sub eventKeyDown_NewEvent
obj.Value = eventKeyDown.Data
form1.Text = obj.GetProperty("KeyCode") & " is down"
End Sub
Sub eventKeyUp_NewEvent
form1.Text = "Key Up"
End Sub
Sub App_Start
objMain.New1(False)
objMain.Value = tvMain.ControlRef
objMain.SetProperty("Sorted", "True")
frmMain.Show
End Sub
objMain.FromControl("tvMain")
objMain.FromControl(tvMain.ControlRef)
There's no need to apologise. I just wondered if you had remembered that the library existed.sorry.
Obj1.New1(False)
Obj1.FromControl("Form1")
Obj1.SetProperty("MinimizeBox",False)
Obj.New1(False)
Obj.FromControl("Button1")
FontInfo.CreateNew("System.Drawing.Font" & FontInfo.System_Drawing)
FontInfo.Value = Obj.GetProperty("Font")
Msgbox(FontInfo.Value.Name)
Obj1.New1(False)
Obj2.New1(False)
Obj3.New1(False)
Obj1.FromControl("Button1")
Obj2.Value = Obj1.GetProperty("Font")
Obj3.Value = Obj2.GetProperty("Size")
Msgbox(Obj2.GetProperty("Size"))
Msgbox(Obj2.GetProperty("Name"))
Msgbox(Obj2.GetProperty("Style"))