home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD61835282000.psc / modMain.bas < prev    next >
Encoding:
BASIC Source File  |  2000-05-28  |  2.1 KB  |  55 lines
  1. Attribute VB_Name = "modMain"
  2. '=============================================================================================================================
  3. '
  4. ' Developed by Anoop. M
  5. ' anoopj12 @ yahoo.com
  6. '
  7. ' Anoop M, Govindanikethan, Nedumkunnam P.O, Kottayam,
  8. ' Kerala, India - 686 542
  9. '
  10. ' Hey sir, Kindly rate this code, if you like it.
  11. '
  12. ' READ THIS BEFORE USING THE CODE:
  13. '
  14. ' You can study and view the source code for creating your
  15. ' own apps, but do not reproduce/release Icon Hunter fully
  16. ' or partially for any commercial and/or personal purposes. All
  17. ' rights of this product is related to it's author. Any violation
  18. ' of above conditions will be treated seriously and is punishable.
  19. '
  20. ' I recently inveted a technology for streaming audio, and is
  21. ' now looking promoters/investors to invest in a web-phone network
  22. ' project.
  23. '
  24. ' VISIT MY WEBSITE : http://www.geocities.com/streamingaudio for details
  25. '=============================================================================================================================
  26.  
  27.  
  28. Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  29. Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  30. Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  31. Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
  32. Declare Function GetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long) As Long
  33.  
  34. Public Const HWND_TOPMOST = -1
  35. Public Const HWND_NOTOPMOST = -2
  36. Public Const SWP_NOACTIVATE = &H10
  37. Public Const SWP_SHOWWINDOW = &H40
  38.  
  39. Public frmT As frmTea
  40.  
  41. Sub Main()
  42. X = GetSetting("Time Tech", "TeaCup", "IfStart", "0")
  43.  
  44.  
  45. If X = 0 Then
  46. frmMenu.cmdHelp.Visible = True
  47. frmMenu.Show vbModal
  48. Else
  49. frmMenu.cmdHelp.Visible = False
  50. End If
  51.  
  52. frmMain.Show
  53.  
  54. End Sub
  55.