If TextUser.Text = "Test" And TextPass.Text = "123" Then
            Form2.Show()
            Me.Visible = False
        Else
            MsgBox("Incorrect.")
        End If
 

If Form1.TextPass.Text = "123" Then
            NewPass.Enabled = True
            RNewPass.Enabled = True
            Form1.TextPass.Text = RNewPass.Text
            Form1.TextPass.Text = NewPass.Text
        Else
            NewPass.Enabled = False
            RNewPass.Enabled = False
        End If
 

If TextUser.Text = "User123" Or TextPass.Text = "Password123" Then
            Form2.Show()
        Else
            MsgBox("Incorrect.")
        End If
 

 
Dim saveFileDialog1 As New SaveFileDialog()
 
        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
 
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            Using sw As New IO.StreamWriter(saveFileDialog1.FileName, False)
                'write each row of the ListView out to a tab-delimited line in a file 
                For i As Integer = 0 To Me.ListView1.Items.Count - 1
                    sw.WriteLine(((ListView1.Items(i).Text & vbTab) + ListView1.Items(i).SubItems(0).ToString() & vbTab) + ListView1.Items(i).SubItems(1).ToString())
                Next
            End Using
        End If
 

Imports System.IO 'Todo el codigo esta resumido por partes 
Public Class Form1
    Private Folder As String 'Crea la ruta de la carpeta "Screenshots"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
        If Not Directory.Exists(Folder) Then 'Si no existe dicho directorio
            Directory.CreateDirectory(Folder) 'Entonces lo crear
        End If
        LabelFolder.Text = Folder 'Y en el "LabelFolder" muestra la ruta que se creo
    End Sub
 

Private Sub CheckFolder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFolder.CheckedChanged
        If CheckFolder.Checked = True Then
            FolderBrowserDialog1.ShowDialog()
            LabelFolder.Text = FolderBrowserDialog1.SelectedPath() 'Aqui va la ruta de la carpeta que se selecciono
        Else
            LabelFolder.Text = Folder 'Si por algun motivo quiero usar nuevamente la carpeta "Screenshots". Pero la elimine por accidente
            CheckFolder.Checked = False
            Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
            If Not Directory.Exists(Folder) Then
                Directory.CreateDirectory(Folder)
            End If
        End If
    End Sub
 

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Imaging
Public Class Form1
 
    Private Folder As String 'Crea la ruta de la carpeta
    Private Nombre As String = "Image " 'Aqui asigna el nombre a todas las imagenes
    Private Template As String
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Aqui almacena los formatos de las imagenes
        ComboBox1.DataSource = New ImageFormat() {ImageFormat.Bmp, ImageFormat.Gif, ImageFormat.Jpeg, ImageFormat.Png, ImageFormat.Tiff}
    End Sub
 
 
    Dim bmp As Bitmap
    Dim graphics As Graphics
 
    Private Sub ButtonScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonScreen.Click
        Dim SearchPattern As String = String.Concat(Nombre, "??.", ComboBox1.SelectedItem)
        Dim Files As String() = Directory.GetFiles(Folder, SearchPattern) 
        Dim Numb As Integer = 0
        If Files.Length > 0 Then
            Array.Sort(Files)
            Numb = Integer.Parse(Files(Files.Length - 1).Substring(Template.Length, 2)) + 1
        End If
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
        Using Grap As Graphics = graphics.FromImage(Bmp)
            Grap.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
            Dim Format As ImageFormat = DirectCast(ComboBox1.SelectedItem, ImageFormat)
            Bmp.Save(String.Concat(Template, Numb.ToString("00"), ".", Format), Format)
        End Using
    End Sub

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)