Private Sub VBForums_Newthread()
If Thread.Question = Hard then
MSGBox "No one can reply..."
Else If Thread.Question=Easy then
Print "It's very easy.."
MsgBox "God helps those who helps themselves."
End If
End sub
Private Sub VBForums_Newthread()
If Thread.Question = Hard then
MSGBox "No one can reply..."
Else If Thread.Question=Easy then
Print "It's very easy.."
MsgBox "God helps those who helps themselves."
End If
End sub
Is this what you mean. The type will not show up, but it will work.
There is a sample app included.
Code:
Public Property Get Font() As Font
Set Font = txtTextBox.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set txtTextBox.Font = New_Font
End Property
I mean that i have a compliled ocx which is an arabic text box but it has no font property and it uses the system default font as the font,It also has a fontsize property.
Private Sub VBForums_Newthread()
If Thread.Question = Hard then
MSGBox "No one can reply..."
Else If Thread.Question=Easy then
Print "It's very easy.."
MsgBox "God helps those who helps themselves."
End If
End sub
how to add properties
Reply With Quote
