GOTO文の行ラベルを使用するには？ (ID:110909)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Form_Load() Dim a As Integer a = 2 If a = 1 Then GoTo Patern1 Else GoTo Patern2 End If Patern1: Text1.Text = "てすと" Exit Sub Patern2: Text1.Text = "test" End Sub でどうでしょ？