How to change following code from VB to Java

Type Segment
fr_pt(1 To 4) As Single
to_pt(1 To 4) As Single
fr_tr(1 To 4) As Single
to_tr(1 To 4) As Single
End Type

Global NumSegments As Integer
Global Segments() As Segment

call CreateData ' program start from calling this method

Sub CreateData()
MakeSegment 0, 0, 0, 2, 0, 0
MakeSegment 2, 0, 0, 2, 2, 0
MakeSegment 2, 2, 0, 0, 2, 0
MakeSegment 0, 2, 0, 0, 0, 0
End Sub

Public Sub MakeSegment(x1 As Single, y1 As Single, z1 As Single, x2 As Single, y2 As Single, z2 As Single)

NumSegments = NumSegments + 1
ReDim Preserve Segments(1 To NumSegments)
Segments(NumSegments).fr_pt(1) = x1
Segments(NumSegments).fr_pt(2) = y1
Segments(NumSegments).fr_pt(3) = z1
Segments(NumSegments).fr_pt(4) = 1
Segments(NumSegments).to_pt(1) = x2
Segments(NumSegments).to_pt(2) = y2
Segments(NumSegments).to_pt(3) = z2
Segments(NumSegments).to_pt(4) = 1

End Sub

'Can some one change this code from VB to Java. PLEASE :(