Advertisement
Guest User

Untitled

a guest
Apr 18th, 2015
197
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. Public Class WizardPages
  2. Inherits TabControl
  3. Protected Overrides Sub WndProc(ByRef m As Message)
  4. '--- Hide tabs by trapping the TCM_ADJUSTRECT message
  5. If m.Msg = &H1328 AndAlso Not DesignMode Then
  6. m.Result = CType(1, IntPtr)
  7. Else
  8. MyBase.WndProc(m)
  9. End If
  10. End Sub
  11. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement