Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dim obj as new object
obj=CreateObject("irgendeinCOMSteuerelement")'zb. "MSComCtl2.DTPicker"
'hier krachts
AddHandler obj.MouseDown, AddressOf meClicked
AddHandler obj.MouseMove, AddressOf memousemoveOver
me.Controls.Add(obj)
end sub
End Class
|
|
|
Public Class Form1
Private WithEvents obj As Control
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj = CreateObject("MSComCtl2.DTPicker")
End Sub
Private Sub obj_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles obj.MouseClick
End Sub
End Class
|
|
|
|
|
|
|
|
|
