ServiceApp/FirstSteps/declares.bas

Attribute VB_Name = "declares"
Option Explicit
Public Declare Sub DebugBreak Lib "kernel32" ()

Sub setCurrentStatus(txtStatus As String)
    ServiceMain.StatusBar.Panels(1).Text = txtStatus
End Sub


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