frmMySQL2Excel.frm #1

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMySQL2Excel 
   Caption         =   "MySQL_Excel"
   ClientHeight    =   3915
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7215
   OleObjectBlob   =   "frmMySQL2Excel.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmMySQL2Excel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
   Unload frmMySQL2Excel
End Sub

Private Sub cmdClear_Click()
   tbUsers.Value = ""
End Sub

Private Sub cmdRun_Click()
Dim meOK As Integer

If tbUsers.Value <> "" Then
    Call MySQL2Excel.MySQL2Excel_Main
    Unload frmMySQL2Excel
Else
    meOK = MsgBox("Please specify an integer in the text box", vbOKOnly)
    If Not (meOK) Then
        'do nothing
    End If
End If
End Sub