non-shared member?

[rosshodges]

I am trying to make my menu about button take me to another form. I added the code but it says its a non-shared memeber and requires an object reference? any ideas?

 

Private Sub butSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSend.Click

Dim bSuccess As Boolean = False

Dim oFiles As New Collection()

Dim sFileNames() As String

Dim byArray() As Byte

Dim i As Integer

Dim fs As FileStream

Dim oSMTP As New SMTPMailer.CSMTP()

Dim about As New Form()

 

butSend.Enabled = False

If lstFiles.Items.Count <> 0 Then

ReDim sFileNames(lstFiles.Items.Count - 1)

For i = 0 To lstFiles.Items.Count - 1

sFileNames(i) = Path.GetFileName(lstFiles.Items(i).ToString).ToString

 

fs = New System.IO.FileStream(lstFiles.Items(i).ToString, System.IO.FileMode.Open, System.IO.FileAccess.Read)

ReDim byArray(CInt(fs.Length))

fs.Read(byArray, 0, CInt(fs.Length))

 

oFiles.Add(byArray, sFileNames(i))

Next

bSuccess = oSMTP.Mail(txtTo.Text, txtFrom.Text, txtSubject.Text, txtBody.Text, txtServer.Text, oFiles, sFileNames)

Else

bSuccess = oSMTP.Mail(txtTo.Text, txtFrom.Text, txtSubject.Text, txtBody.Text, txtServer.Text)

End If

oSMTP = Nothing

fs = Nothing

oFiles = Nothing

butSend.Enabled = True

End Sub

 

Private Sub butBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBrowse.Click

dlgOpen.ShowDialog()

txtFileName.Text = dlgOpen.FileName

End Sub

 

Private Sub ExitApp()

Dim ChildForm As Form() = Me.MdiChildren

'Make sure to ask for saving the doc before exiting the app

Dim i As Integer

For i = 0 To ChildForm.Length - 1

ChildForm(i).Close()

Next i

Application.Exit()

End Sub 'Exit

 

Private Sub butAddFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAddFile.Click

lstFiles.Items.Add(txtFileName.Text)

End Sub

 

Private Sub butRemoveFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRemoveFile.Click

lstFiles.Items.Remove(lstFiles.SelectedItem)

End Sub

 

Private Sub dlgOpen_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgOpen.FileOk

 

End Sub

 

Private Sub about_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

 

Private Sub txtServer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

End Sub

 

Private Sub frmMailTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

 

Private Sub txtServer_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtServer.SelectedIndexChanged

 

 

End Sub

 

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

 

End Sub

 

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

dlgOpen.ShowDialog()

txtFileName.Text = dlgOpen.FileName

End Sub

 

Private Sub StatusBar1_PanelClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.StatusBarPanelClickEventArgs) Handles StatusBar1inactive.PanelClick

 

End Sub

 

Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

End Sub

 

Private Sub txtBody_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBody.TextChanged

 

End Sub

 

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

ExitApp()

End Sub

 

 

 

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

Form.Show()

 

End Sub

End Class

[rosshodges]

Its ok I have solved the problem thanks for your help on the previous post.