摘自项目FXB：

Private Sub MainForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
    Dim Files(), Temp() As String
    Files = e.Data.GetData(DataFormats.FileDrop)
    Temp = Split(Files(0), ".")
    If UCase(Temp(UBound(Temp))) = "XLSX" Or UCase(Temp(UBound(Temp))) = "XLS" Then
        MsgBox(Files(0))
    Else
        MsgBox("非Excel文件！", MsgBoxStyle.Exclamation)
    End If
    End Sub

    Private Sub MainForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
    If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
        e.Effect = DragDropEffects.Link
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub

摘自网络：

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    SellList.DrawMode = DrawMode.OwnerDrawFixed
    SellList.Items.AddRange(New String() {"第一", "第二", "第三"})
End Sub

Private Sub SellList_DrawItem(sender As Object, e As DrawItemEventArgs) Handles SellList.DrawItem
    'Dim lb As ListBox = CType(sender, ListBox)
    If e.Index = -1 Then
        Return
    End If

    If e.Index = 2 Then
        e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Red, e.Bounds.X, e.Bounds.Y)
    Else
        e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Green, e.Bounds.X, e.Bounds.Y)
    End If
End Sub

摘自网络：

Format(Text1.Text, "Standard")

简单查找第一个匹配值

Public Function getFirstReg(ByVal searchStr As String, ByVal regStr As String) As String
    Try
        Dim r As New Regex(regStr)
        Dim m As Match = r.Match(searchStr)
        If m.Success Then
            Return m.Value
        Else
            Return ""
        End If
    Catch ex As Exception
        Return ""
    End Try
End Function

替换字符

Public Function regReplace(ByVal searchStr As String, ByVal replaceStr As String, ByVal regStr As String) As String
    Dim reg As New Regex(regStr)
    Dim result As String = reg.Replace(searchStr, replaceStr)
    Return result
End Function