IP_TXT = My.Computer.FileSystem.ReadAllText("..\Config\IP_TXT.txt")
           

 Sub conectar_mysql()
        Try
            conexion_mysql.ConnectionString = "server=localhost;User id=root;database=SISFRAC1;Password=Sistemas20"
            conexion_mysql.Open()
        Catch ex As Exception
            MsgBox("No se pudo conectar " + ex.Message)
        End Try
    End Sub

 AgregarUsuarioSQL = "INSERT INTO Usuarios VALUES (2,'" & TXTUserAdd.Text & "','" & newuser_apellidos.Text & "','" & newuser_nombre.Text & "', '" & NivelUser & "','" & TXTPassUser.Text & "')"

        comando = New MySqlCommand(AgregarUsuarioSQL, conexion_mysql)
        comando.ExecuteNonQuery()

   If Char.IsLetter(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
 
 
Public Class PRUEBA
 
    Public Sub New()
        InitializeTimePicker()
 
    End Sub
    Private timePicker As DateTimePicker
 
 
    Private Sub InitializeTimePicker()
        timePicker = New DateTimePicker()
        timePicker.Format = DateTimePickerFormat.Time
        timePicker.ShowUpDown = True
        timePicker.Location = New Point(10, 10)
        timePicker.Width = 100
        Controls.Add(timePicker)
 
    End Sub
 
    <STAThread()> _
    Shared Sub Main()
        Application.EnableVisualStyles()
        Application.Run(New Form1())
 
    End Sub
End Class