コードを実行すると、pen1 でオブジェクト参照がオブジェクトのインスタンスに設定されていないというエラーが表示されます
Dim pen1 As Pen
.
.
.
.
Private Sub setDash()
Select Case selectDash
Case 1
pen1.DashStyle = Drawing2D.DashStyle.Dash
Case 2
pen1.DashStyle = Drawing2D.DashStyle.Dot
Case 3
pen1.DashStyle = Drawing2D.DashStyle.DashDot
Case 4
pen1.DashStyle = Drawing2D.DashStyle.DashDotDot
Case 5
pen1.DashStyle = Drawing2D.DashStyle.Solid
End Select
End Sub