Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='" & proceso & "'")
process.Terminate (0)
Next process

Text1.Text = vbNullString
End Sub

Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function wSource(Web As String) As String
    Dim sBuffer As String * 256
    Dim iRet As Integer
    Dim lRet As Long
    Dim sData As String
    Dim hInternet As Long
    Dim hSession As Long
   
    hSession = InternetOpen("tatatata", 1, vbNullString, vbNullString, 0&)
    hInternet = InternetOpenUrl(hSession, Web, vbNullString, 0&, 0&, 0&)
    iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
    sData = sBuffer
   
    Do While lRet <> 0
        iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
        sData = sData & Mid(sBuffer, 1, lRet)
    Loop
   
    iRet = InternetCloseHandle(hInternet)
    wSource = sData
End Function

Private Sub Form_Load()
Text1.Text = wSource("http://www.google.co.ve")
End Sub

Imports System
Imports System.IO

Public Class Form1
    Dim inputfile As StreamReader
    Dim lines As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        inputfile = System.IO.File.OpenText("C:\test.txt")

        Do While inputfile.Peek <> -1
            lines = inputfile.ReadLine
            TextBox1.Text = Split(lines, ",")(0) 'Nombre
            TextBox2.Text = Split(lines, ",")(1) 'Apellido
            TextBox3.Text = Split(lines, ",")(2) 'Edad
        Loop
    End Sub
End Class

jose,moreno,15

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strNombre As String

        strNombre = "Juan,Moreno,15"

        MsgBox(Split(strNombre, ",")(1))
    End Sub
End Class

Option Explicit

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1

Dim lRet As Long

'Ocultar calculadora
Private Sub Command1_Click()
lRet = FindWindow(vbNullString, "Calculadora")

If lRet <> 0 Then
    Call ShowWindow(lRet, SW_HIDE)
End If
End Sub

'Mostrar calculadora
Private Sub Command2_Click()
    Call ShowWindow(lRet, SW_NORMAL)
End Sub