正規表現

' 文字列の間の空白をカンマで置き換える
Function ReplaceSpaceToComma(ByVal strText As String) As String
Return Regex.Replace(strText, "[ ]{1,}", ",")
End Function

ランダムパス生成

        Dim wk_buf As String = ""
        Dim wk_num As Single

        Do Until Len(wk_buf) = 8
            Randomize()
            wk_num = Int((122 * Rnd()) + 1)
            Select Case wk_num
                '記号等の排除
                Case Is < 49
                Case 58, 59, 60, 61, 62, 63, 64
                Case 91, 92, 93, 94, 95, 96
                    '誤認候補の排除
                Case 48, 49, 79, 108
                Case Else
                    wk_buf = wk_buf & Chr(wk_num)
            End Select
        Loop

        passwd.Text = wk_buf

発生したイベントを取得する

Private Sub cld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cld1.ValueChanged, cld2.ValueChanged, cld3.ValueChanged, cld4.ValueChanged
        Dim cld As DateTimePicker = CType(sender, DateTimePicker)

        Select Case cld.Name
            Case "cld1"
                first_transaction.Text = Format(cld1.Value, "yyyy/MM/dd")
            Case "cld2"
                contracted.Text = Format(cld2.Value, "yyyy/MM/dd")
        End Select

    End Sub