VB.NET, C#, PowerShell Tipsサイト

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'FlowLayoutPanel上のコントロールの折り返しを有りに設定
    FlowLayoutPanel1.WrapContents = True
End Sub

Private Sub RadioButton_CheckedChange(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radioButton_LeftToRight.CheckedChanged, radioButton_TopDown.CheckedChanged, _
    radioButton_RightToLeft.CheckedChanged, radioButton_BottomUp.CheckedChanged

    Select Case DirectCast(sender, RadioButton).Name
        Case "radioButton_LeftToRight"
            FlowLayoutPanel1.FlowDirection = FlowDirection.LeftToRight

        Case "radioButton_TopDown"
            FlowLayoutPanel1.FlowDirection = FlowDirection.TopDown

        Case "radioButton_RightToLeft"
            FlowLayoutPanel1.FlowDirection = FlowDirection.RightToLeft

        Case "radioButton_BottomUp"
            FlowLayoutPanel1.FlowDirection = FlowDirection.BottomUp
    End Select
End Sub