イベントハンドラの作成

では最後に、コマンドボタンを押したときの動作を書きます。フォーム作成の画面でコマンドボタンをダブルクリックすると、

Private Sub Command1_Click()

というサブルーチンができあがりますので、そこに記述します。

Private Sub Command1_Click()
  If isPrime(Text1) Then Label2.Caption = "○" Else Label2.Caption = "×"
End Sub