Alterar as cores dos controles dependendo da data em VB.Net

Public Sub AlteraCorDeFundo(ByVal Formulario As Control)
     Dim ctl As Control
     For Each ctl In Formulario.Controls
         Select Case System.DateTime.Now.Day
             Case 9 To 11
                 ctl.BackColor = Color.Black
                 ctl.ForeColor = Color.Yellow
                 Formulario.BackColor = Color.Black
             Case Else
                 ctl.BackColor = Color.LightGray
                 ctl.ForeColor = Color.Blue
                 Formulario.BackColor = Color.LightGray
         End Select
      Next
End Sub

Ler um arquivo texto com VB.Net

Imports System.IO
 
Public Function LerArquivoLocal(ByVal Arquivo As String) As String
    Dim fluxoTexto As IO.StreamReader
    Dim linhaTexto As String
    Dim Conteudo As String = String.Empty
        If IO.File.Exists(Arquivo) Then
            fluxoTexto = New IO.StreamReader(Arquivo)
            linhaTexto = fluxoTexto.ReadLine
            While linhaTexto <> Nothing
                Conteudo &= linhaTexto & vbCrLf
                linhaTexto = fluxoTexto.ReadLine
            End While

            fluxoTexto.Close()
            Return Conteudo
        Else
            Return "Erro."
        End If
End Function

Deletar arquivo em pasta FTP com VB.Net

Imports System.Net.Mail
Imports System.Net
Imports System.IO
Public Sub DeletarFtp(ByVal Arquivo As String, ByVal Usuario As String, ByVal Senha As String)
     Dim filename As String = "ftp://xxx.xxx.xxx.xxx/" & Arquivo
     Dim ftpReq As FtpWebRequest = WebRequest.Create(filename)
     ftpReq.Method = WebRequestMethods.Ftp.DeleteFile
     ftpReq.Credentials = New NetworkCredential(Usuario, Senha)
     Dim ftpResp As FtpWebResponse = ftpReq.GetResponse
End Sub

Fazer upload de arquivo via FTP com VB.Net

Imports System.Net.Mail
Imports System.Net
Imports System.IO
Public Sub EnviaFtp(ByVal Arquivo As String, ByVal SiteFTp As String, ByVal Usuario As String, ByVal Senha As String)
     Try
         Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(SiteFTp & "/" & System.IO.Path.GetFileName(Arquivo)), System.Net.FtpWebRequest)
         clsRequest.Credentials = New System.Net.NetworkCredential(Usuario, Senha)
         clsRequest.Method = System.Net.WebRequestMethods.Ftp.DownloadFile

         ' Lê o arquivo local
         Dim bFile() As Byte = System.IO.File.ReadAllBytes(Arquivo)

         ' Escreve no destino
         Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
        clsStream.Write(bFile, 0, bFile.Length)
        clsStream.Close()
         clsStream.Dispose()
     Catch ex As Exception
          'messagebox.show("Ocorreu um erro" & ex.message, "Erro")

      End Try
End Sub

Fazer download de arquivo via FTP com VB.Net

Imports System.Net.Mail
Imports System.Net
Imports System.IO

Public Sub RecebeFTP(ByVal Arquivo As String, ByVal Usuario As String, ByVal Senha As String, ByVal Destino As String)
     Dim URI As String = "ftp://xxx.xxx.xxx.xxx/" & Arquivo
     Dim ftp As System.Net.FtpWebRequest = CType(FtpWebRequest.Create(URI), FtpWebRequest)
     ftp.Credentials = New System.Net.NetworkCredential(Usuario, Senha)
     ftp.KeepAlive = False
     ftp.UseBinary = True
     ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
     Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)
         Using responseStream As IO.Stream = response.GetResponseStream
             Using fs As New IO.FileStream(Arquivo, IO.FileMode.Create)
                 Dim buffer(2047) As Byte
                 Dim read As Integer = 0
                 Do
                     read = responseStream.Read(buffer, 0, buffer.Length)
                     fs.Write(buffer, 0, read)
                 Loop Until read = 0 '
                 responseStream.Close()
                 fs.Flush()
                 fs.Close()
             End Using
             responseStream.Close()
             End Using
             response.Close()
         End Using
End Sub