Private Sub Command1_Click()
Dim N As Double
Dim sonuc As Double
Text1.Text = N
N = InputBox("N değerini giriniz.")
sonuc = ((N * (N + 1)) / 2)
Text1.Text = N
Text2.Text = sonuc
End Sub

Private Sub Command2_Click()
End
End Sub