Vb help
Vb help
Looking for someone to help me with simple vb program, i will appriecate it 
Thank you
i have
Public Class Form1
Dim Names(10) As String
Dim tels(10) As String
Dim Group(10) As Integer
Dim Rates(10) As Integer
Dim Counter As Integer = 0
Dim answer As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_details()
Get_Answer()
Do
Loop Until answer = "N" Or answer = "N"
End Sub
Sub Get_details()
Counter = Counter + 1
Names(Counter) = InputBox("Enter customer names")
Dim telemount As Integer
Dim char1 As String
Do
tels(Counter) = InputBox("")
telemount = Len(tels(Counter))
Char1 = Microsoft.VisualBasic.Left(tels(Counter), 1)
Loop Until telemount = 11 And char1 = 0
Do
Group(Counter) = InputBox("Enter customer Group")
Loop Until Group(Counter) > 0 And Group(Counter) < 21
Do
Rates(Counter) = InputBox("Enter the rates")
Loop Until Rates(Counter) > 0 And Rates(Counter) < 11
End Sub
Sub Get_answer()
End Sub
End Class
so far
Thank you i have
Public Class Form1
Dim Names(10) As String
Dim tels(10) As String
Dim Group(10) As Integer
Dim Rates(10) As Integer
Dim Counter As Integer = 0
Dim answer As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_details()
Get_Answer()
Do
Loop Until answer = "N" Or answer = "N"
End Sub
Sub Get_details()
Counter = Counter + 1
Names(Counter) = InputBox("Enter customer names")
Dim telemount As Integer
Dim char1 As String
Do
tels(Counter) = InputBox("")
telemount = Len(tels(Counter))
Char1 = Microsoft.VisualBasic.Left(tels(Counter), 1)
Loop Until telemount = 11 And char1 = 0
Do
Group(Counter) = InputBox("Enter customer Group")
Loop Until Group(Counter) > 0 And Group(Counter) < 21
Do
Rates(Counter) = InputBox("Enter the rates")
Loop Until Rates(Counter) > 0 And Rates(Counter) < 11
End Sub
Sub Get_answer()
End Sub
End Class
so far