• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx

Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx

Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx! Its easy see for your self.

Rate Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'         CaptiveX TM.         '
'   Writen by nofx (op-ivy)    '
'http://www.sharpnet.net/~nofx/'
'or visit us on EFNET #captivex'
'             P.S.             '
'           Have Fun           '


Option Explicit

Private NowX, NowY As Integer
Private UseCol As Long

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
NowX = X
NowY = Y
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
UserControl.Line (NowX, NowY)-(X, Y), UseCol
End If
End Sub

Public Property Get DrawColour() As OLE_COLOR
DrawColour = UseCol
End Property

Public Property Let DrawColour(ByVal vNewValue As OLE_COLOR)
UseCol = vNewValue
UserControl.PropertyChanged "DrawColour"
End Property