/[cvs]/joko/TestArea/vb/NtServices/ServiceApp/FirstSteps/declares.bas
ViewVC logotype

Annotation of /joko/TestArea/vb/NtServices/ServiceApp/FirstSteps/declares.bas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Mon Jan 20 19:21:32 2003 UTC (21 years, 10 months ago) by joko
Branch: MAIN
CVS Tags: HEAD
+ initial check-in

1 joko 1.1 Attribute VB_Name = "declares"
2     Option Explicit
3     Public Declare Sub DebugBreak Lib "kernel32" ()
4    
5     Sub setCurrentStatus(txtStatus As String)
6     ServiceMain.StatusBar.Panels(1).Text = txtStatus
7     End Sub
8    
9    

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed