pEvent_PercentComplete(ByVal Message As String, ByVal Percent As Long)
    '
    End Sub
    
    Private Sub oRestoreEvent_Complete(ByVal Message As String)
    '
    End Sub
    
    Private Sub oRestoreEvent_NextMedia(ByVal Message As String)
    '
    End Sub
    
    Private Sub oRestoreEvent_PercentComplete(ByVal Message As String, ByVal Percent As Long)
    '
    End Sub
    
    Private Sub optSSAuth_Click()
        If optSSAuth.Value = True Then
    '        SSAuthOptionsOn
        End If
    End Sub
    
    Private Sub optWinNTAuth_Click()
        optWinNTAuth.Value = True
    '    WinNTAuthOptionsOn
        txtUserName.Text = ""
        txtPassword.Text = ""
    End Sub
    
    Private Sub buttonsConnectClosed()
        
        cmdBackup.Enabled = False
        cmdRestore.Enabled = False
        cmdBrowse.Enabled = False
        cmbDatabaseName.Enabled = False
        txtDataFileName.Enabled = False
        
    End Sub
    
    Private Sub buttonsConnectOpen()
        cmdBackup.Enabled = True
        cmdRestore.Enabled = True
        cmdBrowse.Enabled = True
        cmbDatabaseName.Enabled = True
        txtDataFileName.Enabled = True
        
    End Sub
    
    
    Private Sub FillDatabaseList()
        cmbDatabaseName.Clear
        
        Dim oDB As SQLDMO.Database
        For Each oDB In gSQLServer.Databases
            If oDB.SystemObject = False Then
                cmbDatabaseName.AddItem oDB.name
            End If
        Next oDB
        
        Dim MyPos As Integer
        gBkupRstrFilePath = CurDir
        MyPos = InStr(1, CurDir, "DevTools", 1)
        If MyPos > 0 Then
            gBkupRstrFilePath = Left(gBkupRstrFilePath, MyPos - 1)
            If Len(Dir(gBkupRstrFilePath + "backup", vbDirectory)) Then
                gBkupRstrFilePath = gBkupRstrFilePath + "backup\"
            Else
                gBkupRstrFilePath = "c:\"
            End If
        Else
            gBkupRstrFilePath = "c:\"
        End If
        If cmbDatabaseName.ListCount > 0 Then
            cmbDatabaseName.ListIndex = 0
            If Len(cmbDatabaseName.Text) > 0 Then
                txtDataFileName.Text = gBkupRstrFilePath + cmbDatabaseName.Text + ".bak"
            End If
        End If
        
    End Sub
    Private Sub cmbDatabaseName_Click()
        If Len(cmbDatabaseName.Text) > 0 Then
            txtDataFileName.Text = gBkupRstrFilePath + cmbDatabaseName.Text + ".bak"