Visual Basic

Private Sub Panel1_Paint(ByVal sender as System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    Dim g As Graphics = e.Graphics
 
    For Each p As Point In Ink
        g.Draw....
    Next
End Sub

Dim p(3) As Point 'create an array of 4 points (1-3 and 0)
        p(0) = New Point(640, 480) 'assign values to the points
        p(1) = New Point(800, 600)
        p(2) = New Point(1280, 748)
        p(3) = New Point(769, 999)
        Dim r As New String("") 'create a blank string
        For Each ipoint As Point In p 'loop through the points
            r &= "Point is located at: " & ipoint.ToString & vbNewLine 'write a string about the point
        Next
        MessageBox.Show(r) 'display the string with the info

LongName = Members(0).Name
LengthOfLongestName = Len(Members(0).Name)

LongName = Members(0).Name
LengthOfLongestName = Len(LongName)

    Private Sub btnLongName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongName.Click
        Dim LongName As String
        Dim LengthOfLongestName As Integer
        LongName = Members(0).Name
        LengthOfLongestName = Len(LongName)
        If LongName Then
        End If
        txtResult.Text = "The longest name is " & LongName & " ."
    End Sub
End Class

Henry Minute wrote:

Once you ... got at least part of it working, come back if you get stuck.

Private Sub subLongest()
      Dim arr(100) As String

      arr(0) = "aa"
      arr(1) = "bbb"
      arr(2) = "cc"
      arr(3) = "ddddd"
      arr(4) = "aa"
      arr(5) = "bbb"
      arr(6) = "cc"


      Dim maxLenIndex As Int16 = 0
      Dim maxLen As Int16 = arr(0).Length
      For ii As Int16 = 1 To 100
          If arr(ii) IsNot Nothing Then
              If arr(ii).Length > maxLen Then
                  maxLen = arr(ii).Length
                  maxLenIndex = ii
              End If
          End If
      Next
      MsgBox("Longest element is " & arr(maxLenIndex))
  End Sub