Sub Open File In VB.NET

    Private Sub OpenFile(ByVal FileName As String)
        Try
            Dim p As New System.Diagnostics.Process
            Dim s As New System.Diagnostics.ProcessStartInfo(FileName)
            s.UseShellExecute = True
            s.WindowStyle = ProcessWindowStyle.Normal
            p.StartInfo = s
            p.Start()
        Catch ex As Exception
            MessageBox.Show("ไม่พบไฟล์'" & FileName & "' ในระบบ!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

วิธีเปิด Exploerer และ เลือกไฟล์ไว้รอ ใน VB.NET

Call Shell("explorer /select," & sPath, AppWinStyle.NormalFocus)

การ Hilight Selected Item ใน Listview

บางทีเมื่อเราเลือก Listview แล้วต้องการไปคลิกเลือก Object อื่น แต่อยากแสดงให้เห็นว่าเราเลือก Listview บรรทัดนั้นๆแล้ว ดังนี้ครับ

ListView1.HideSelection = False 'ไฮไล้การเลือก Listview

Access Connection String In VB.NET

Imports System.Data.Odbc
Module ModDB
 Public dbConfig As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=MyAccessFile.mdb;UID=Admin;PWD=1234"
   Public conn As New OdbcConnection
    Public Sub Connect()
        On Error GoTo ConnectERR
        conn.ConnectionString = dbConfig
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Exit Sub
ConnectERR:
        MsgBox("ผิดพลาดในการเชื่อมต่อกับฐานข้อมูล" & Err.Description, MsgBoxStyle.OkOnly, "ผิดพลาด")
    End Sub
End Module

โปรแกรมดีๆ สำหรับแก้ปัญหาฮาร์ดดีสก์

http://www.cgsecurity.org/wiki/Advanced_NTFS_Boot_and_MFT_Repair